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1. PROGRAM TITLE 


Floppy Diagnostic Loader/Generator (FDLG) 


16 bit 06-225F0L 
32. .b2t 06-225F02 
ar PURPOSE OF THE PROGRAM 


The FDLG provides the facilities to load, build, and maintain 
Perkin-Elmer diagnostics on a floppy disc. The need for a paper 
tape diagnostic is eliminated. The Perkin-Elmer Floppy Media 
Disc (FMD) System is the only storage medium the FDLG supports. 


Ee MINIMUM HARDWARE REQUIRED 


Processor: any 16 or 32-bit processor (7/32 with halfword mode, 
must be run in fullword mode) 


Memory: 16-bit processor - 32KB 
32-bit processor - 32KB 
Console: Teletype on current loop interface; address X'02'. 
or 
- Carousel 30 or 35 on current loop interface; address 
MPO ZT. 
or 


- Carousel 300 on PASLA or PALM; address X'10,11'; full 
duplex; highest clock rate. 


~ Teletype on fiexeet/6 bus; address X'CO'. 
- CRT on micro-I/0O ae address X'CO'. 
- CRT on current ne interface; address X'02'. 
- Carousel 30 or 35 on micro-I/O bus; address X'CO'. 
- - Carousel 300 on ena bus; address X'CO'. 
or 


- CRT on PASLA or PALM; address X'10,11'; full duplex; 
highest clock rate. 


Display Device - display panel; address X'Ol1' 
or 
- any ASCII console device as shown under console 
above. 
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List Device: Same as under "Console", plus high speed line 
address X'62"'. 4m 


printer; 


Output Device: Floppy Media Disc System; address X'Cl'. 


Input Device: Floppy Media Disc System; address X'Cl'. 


4. SYSTEM REQUIREMENTS 


J All I/O devices must have Perkin-Elmer standard addresses; if 
not, the following locations must be changed to reflect their. 


actual addresses: 


LABEL DEFAULT 
TTYAD x'O2" 
LPAD X'62!' 
MBUS x CO" 
FLPAD pas OA Te 
De LOADING PROCEDURES 


Insert any diskette of the supplied set in the desired drive and 


set up addresses X'78,7 
X'78' = Floppy Media Di 
X'79' = YY, where YY = 


Load the standard X'50' 


LOCATION 


x'30' 
x32! 
x30" 
x'36' 


Cae oad 
eee. 
X'54! 
pi Gey od 


9! 


sc 


86 
96 
Aé 
B6 


DEVICE 

Current Loop Device . 
Line Printer 

Micro-I/O Bus Console 


Floppy Media Disc System 


as follows: 


(FMD) System address 


for 
fOr 
FOr 
for 


drive 
drive 
drive 
drive 


WN Fr © 


sequence shown below. The boot load 
program determines whether to load the 16-bit or 32-bit FDLG. 


50 


521 UENCE 


CONTENTS . 


x'0000' 
X*0000" 
x'0000' 
X'0500' 


X'D500! 
X'OOCF! 
x' 4300! AM. 
x'0080' i" 
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, Oooo 


Execute the X'50' sequence and the processor will stop with 
X'FFFF' in the display (or 'LOAD OK' printed on the micro-I/0O 
bus console), a successful load is indicated. (The bootloader 
program loaded by the autoload retries until successful loading 
ils accomplished; nominal successful loading time is less than 


[ 


5 seconds). The FDLG loader segment may be restarted at any 


time by addressing X'6000' for both 16-bit processors and 
32-bit processors. To execute the generator segment, 
address location START+4 and execute. The following is printed 


on the console device: 


FDLG GENERATOR RO1 
k 


NOTE 


The loader segment normally communicates only 
with the display or the system console. 

The generator segment uses the halfword 
labeled DEVTYP to specify console type and it 
must be set up before executing the generator 
segment. Both bytes in the halfword must be 


set up as follows: 


DEVTYP USE 
X'O10L1' CRT on PASLA or PALM 
X'0202' Current loop device 
X'0404' Carousel on PASLA or PALM 
x 0505" Micro-I/O bus device 


Any value in DEVTYP other than those shown 
is illegal and is interpreted as X'0202'. 


6. OPERATOR COMMAND INFORMATION 


6.1 COMMAND/OPTION INPUT STRUCTURE 


An asterisk (*), output to the console device, indicates that 
the program is awaiting operator input. All options must be 
typed in from the console, followed by a space and the desired 
arguments separated by commas. A carriage return (CR) is issued 
to terminate every command/option input. An invalid command/ 


option or value causes a (?) 


followed by a carriage return (CR), 


line feed (LF), and an asterisk (*) to occur. If an error is 

made during entry of the option, the hash mark (#) can be input 
to delete the entire line, causing a carriage return (CR), line 
feed (LF), and an asterisk (*) to be output; or, the left arrow 


(m—) can be input to delete 


the previous character or a string 


of characters can be deleted by inputting a («—) left arrow for 


each character to be deleted; 
DELETE character. 
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the same is applicable to the 


6.1.1 Delimiters And Field Termination 

Either a space or comma may be used as a field delimiter. Any 
non-hexadecimal character input in any field (except the program Ma. 
name field) terminates that field; any field in excess of the ce 
maximum size allowed causes command rejection. 

6.2 OPERATOR COMMANDS 

The generator segment of the FDLG uses the following commands: 


LIMITS CREATE DUPLICATE INITIALIZE 


FIND UPDATE SEQNUM 


NOTE 


The program examines each command for its 
first character only. 


6.2.1 INITIALIZE 


This command prepares a formatted diskette for FDLG use. It 
initializes the directory, writes the boot loader program to 
sectors 5 and 6, and finds output medium capacity. A diskette 
must be loaded, ready, anc NOT write-protected. 


Format: INTIALIZE 
Example: eEACR) 
EOJ 
* 
Ge2e2 LIMITS 
This command specifies the low and high boundaries of the memory 
image to be written to the diskette by the CREATE or UPDATE com- 
mand. Memory limits depend only on the processor type (16 or 
32-bit) and available memory. The software supports a full 24 
bit address. 
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du GE eR Re ETT | 


Format: LIMITS LLLLLL, HHHHHH (CR) 
LLLLLL = low memory limits to be transferred. 
HHHHHH high memory limits to be transferred. 


Example: *T, AOO,27C5 (CR) 


NOTE 


Six-digit input is only valid for 32-bit pro- 
cessors; 16-bit processors use four-digit input. 


6.2.3 SEQNUM 


This command assigns a three digit sequence number, a three 
digit 06- number, the program revision level and a 30-character, 
free-form, program description. The sequence number used for 
each program should be unique; if it is not unique, an error 
message is printed on the console when the CREATE or DUPLICATE 
command is executed. 


Format: SEQNUM SSS,PPP,RR[.R] ,NNNN...... (CR) 

SSS sequence number 

PRN 06 number 

RR '.R! revision level, followed by an optional 

extension field indicating that the 

program has been patched to correct a 
problem with the stated revision level. 
The extension number corresponds to 
the number of change page packages 
incorporated. When the program is 
revised, all patches are programmed in 
and the extension field reverts to 
zero (a zero extension field is NOT 
printed when the LIST function is used). 


il 


NOTE 
Not all change page packages are in- 


corporated as they may not be appli- 
cable to all supported processors. 


NNN = program description, up to 30 charac- 
Cer s.. 


Example: S 03A,156,00,F0] MEMORY TEST PART 1(CR) 
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6.2.4 CREATE 


This command outputs a memory image to 
the parameters entered with LIMITS and 
Format: CREATE (CR) 
Example: igs, @ 

*EOT 


* 


62.250 DUPLICATE 


the output device using y 
SEQNUM. i. 


This command duplicates the program string specified from current ‘ 


input program (defined by FIND command) 


to the termination 


sequence number or EOV; the string is appended to the program(s) 


| on the output device, and the termination sequence number 


is copied. 
NOTE 


If any deleted programs exist 


on the input 


drive (from using the UPDATE function), they 
are eliminated by the DUPLICATE function when 


they are copied to the output 
Format: DUPLICATE NNN (CR) 
NNN = sequence number 


EXAMPLE: *D 403 
EOJ 


=I) 
EOJ 


6.2.6 FIND 


This command will search the specified 
sequence number and make that sequence 


Format: FIND X,NNN (CR) 
X = I or O, specifying 
volume. 
NNN = sequence number 


Example: *F I,4C 


EKOJ 
k 


NOTE: Sequence number 


ee [eR eA OG] GE MR Sa er 


device. 


ae 
volume for the specified 
number "current". 
input (I) or output (0) 


000 is reserved for EOV. 
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6.2.7 UPDATE 


This command deletes the specified sequence number from the 
diskette and CREATES a new program using the LIMITS and SEQNUM 
parameters previously entered. 


Format: UPDATE XXX (CR) 

XXX = sequence number to be deleted. 
Example: *U 124 (CR) 

EOJ 

* 
vo OPERATING PROCEDURES 


This section describes the loader and generator operations. 


7.1 LOADER PROCEDURES 


Boot load the program as described in Section 5; or if already 
resident in memory, execute the program at X'6000' for both 

the 16-bit version and the 32-bit version. The processor 

then halts and the display contains X'FFFF'. Enter the program's 
sequence number (nonzero) to be loaded into the switch register/ 
display and depress run. The FDLG reads the display and attempts 
to load the requested program. If the display contains X'FF', 

it indicates a successful load. After five retries, an error 
code is displayed. See Section 8 for an explanation of the error 
codes. If the switch register/display was set to zero, the FDLG 
will list the program definition block for each procram on the 
diskette. The program assumes that the user wants a hard copy 
when he lists the contents of the media. To this end, the pro- 
gram searches for I/O device presence and availability in this 
order: 


Line Printer 

Micro-I/O bus console 
Current loop interface 
. PASLA/PALM 


m WN 


If the device is present and it has correct status, it will list 
the media in the above priority. 
NOTE 
If the processor has no display (e.g. Model 5/16), 
all reference to the display is replaced by the Micro- 
I/O bus console. All entry is via the console keyboard 
and all display is in ASCII. See Section 8.1 for 
Micro-bus console messages. 


7.2 GENERATOR PROCEDURES 


Generator Procedures are as follows: 
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7.2.1 Device Assignments 


Input/Output device selection is semiautomatic; input is what- 
ever drive is specified in bits 2 and 3 of location X'79' (auto- 
load parameter) and the output drive is the other drive in the 
0-1 or 2-3 even/odd pair. For example, if the boot drive is l, 
input is set to l and output is set to 0; if the boot drive is 2, 
input is set to 2 and output is set to 3. 


NOTE 


The FDLG writes ONLY to the specified output 
drive; therefore, this drive must not be write 
protected. 


Te2wee Medium Initialization 


Medium initialization of the output diskette must be done before 
the FDLG can use a diskette. 


132435 CREATE 


This function finds the last directory entry (EOV) and adds a 
program in memory to the end of the.directory. To create a 
program on a diskette follow these steps: 


1. Load memory with the program to be put on the output diskette. 


2. Place an initialized diskette in the output drive, without 
write protect. 


NOTE 


When building new media, the first two pro- 
grams written to the diskette MUST be the 16 
and/or 32-bit FDLG, for boot load purposes. 
Duplicating the first two programs from any 
FDLG diskette in the set supplied or by 
creating the FDLG twice in succession (with 
two unique sequence numbers) on an initialized 
diskette accomplishes this. 


| 3. Boot load the FDLG from the input drive. Address X'6004' 


for both the 16-bit version and the 32-bit version and 
execute. The title (FDLG) is printed, followed by a prompt. 


NOTE 
The generator segment uses "DEVTYP" to deter- 


mine which I/O device to use as a console; 
"DEVTYP" must be set up according to Section 5. 
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4. Enter the LIMITS option. 
5. Enter the SEQNUM option. 


6. Enter the CREATE command; the program is written to the out- 
put diskette and verified. 


7. To add another program, load it into memory, start the 
generator at X'6004', and go to Step 4.. 


7.2.4 DUPLICATION 
To duplicate an entire diskette: 


1. Boot load the FDLG from the input diskette and/or start the 
generator segment at X'6004'. 


2. Use the FIND command to position the current program pointer 
for the input diskette to the desired sequence number. 


3. Initialize the output diskette. 


4. Issue the DUPLICATE command, with no termination sequence 
number. This command tells the FDLG to duplicate to EOV. 


NOTE 


The normal duplication mode is to load the 

input program into memory and to write it to 

the output diskette. This mode is only deviated 
from when the LIMITS of the program being copied 
exceed 64KR and a 16-bit processor is being 
used; or when the LIMITS would overwrite the 
resident FDLG; or memory below X'AOO' for 32-bit 
processors, or below X'2D0' for 16-bit processors. 
In this special mode, the program is read and 
copied one, 128-byte sector at a time. The time 
required to duplicate a program is measureably 
longer and the amount of head loading and un- 
loading is extremely noticeable. 


5. To copy a section of a diskette, position the input diskette 
(using FIND) and issue the DUPLICATE command specifying a 
termination sequence number. The input diskette is copied 
from the current position (including the current program) to 
the termination sequence number (including the termination 
sequence number). 
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Leelee UPDATE 


To UPDATE a program to a later revision or to replace it entire- ah, 
ly, follow these steps: ie 


1. Load memory with the program to be put on the output diskette. 


2. Boot load the FDLG and/or restart the generator segment at 
| X'6004'. 


3. Input the LIMITS option. 

4, Input the SEQNUM option. 

5. Issue the UPDATE command, specifying a sequence number. The 
corresponding program is deleted and the new memory resident 
program is created on the output diskette. 

NOTE 
If the specified sequence number does not exist, 


the command is rejected; a question mark and prompt 
are output. 


8B. MESSAGES 
8.1 LOADER MESSAGES . 
The loader segment messages are: 
Display Data ASCII Message Meaning 
i FFFF FDLG LOADER RO1 Successful load 
OOFF EOJ Job completed 
EEEE EOV Program not found 
3333 I/O ERROR ON LOAD Bad status on load 
55.55 ATTEMPT TO OVER- = 
LOAD FDLG 
1111 EOV NOT FOUND Read complete direct- 
ory and program or 
EOV not found. 
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8.2 GENERATOR MESSAGES 
Generator segment messages are: 


1. VERIFY ERROR - I/O error while verifying program just added 
to output diskette. 


2. LOW >HIGH ERROR - low limits greater than high limits on 
input with LIMITS or when read from program definition block 
during any other function. 

3. DISKETTE FULL - room does not exist on output diskette to 
fit a program with present parameters; a shorter program may 
segs Bb oer 

4. DIRECTORY FULL - directory at maximum capacity (127 entries). 


5. DEFECTIVE MEDIA - output medium has more than two bad tracks 
and cannot be used. 


6. ILLEGAL INSTRUCTION - an illegal instruction has occurred. 
Refer to the appropriate user manual to determine where the 
address of the illegal instruction is stored. 


7. MACHINE MALFUNCTION - a machine malfunction interrupt has 
occurred. 


8. READ ERROR - status error on input drive. 


9. DIRECTORY READ ERROR ON DRIVE X - read failed after five re- 
try attempts. (X = drive number) 


10. WRITE ERROR ON OUTPUT DRIVE - status error on output drive. 


11. ERROR ON DIRECTORY UPDATE - directory update status failure. 


12. FDLG GENERATOR RO1l - program title, printed when generator 
segment is started. 


13. SEQUENCE NUMBER EXISTS ON OUTPUT MEDIA - attempt to CREATE 
or DUPLICATE a non-unique sequence number. 


9. FDLG STRUCTURE 


9.1 DIRECTORY STRUCTURE 


The directory is divided into four, 128-byte blocks, with thirty- 
two, 4-byte entries per block. The first two bytes in each 
entry correspond to the hexadecimal sequence number associated 
with the program and the second two bytes point to the Program 
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Definition Block (PDB) associated with that program. The PDB 

always precedes the memory image of the program and it contains 

the sequence number, 06- part number, revision number, program 

name or description, number of sectors used for this program, 

and the memory boundary of the program. The last directory entry om 
is usually followed by an EOV directory entry (four bytes of 

zeros), except when the directory is full. It is then followed 

by an end of directory entry (four bytes of X'FF'). A maximum 

of 127 entries are allowed in the directory. 


ee OVERALL FILE STRUCTURE 


Sectors 1-4 and 7-27 are unused; they are reserved for OS compat- 
ibility requirements. Sectors 28-31 are the directory. Sectors 

5-6 are the FDLG boot loader. Sectors 32-2002 are available for 

program storage. 


9.3 STARTING ADDRESSES 
The FDLG starts at the following addresses; 


Loader segment - x'6000! 
Generator segment - X'6004' 


The upper limits of the FDLG programs are X'5FFF' (24KB) and 

X'7FFF!' (32KB) for the 16 and 32-bit processors, respectively. 

Any contiguous block of memory below or above the FDLG can be 

used for program output. a 


9.4 SPECIAL CONSIDERATIONS 


Exercise care when specifying limits for the CREATE and UPDATE 
functions, because dedicated memory should not normally be alter- 
ed by a program load function. Also, the MAC segmentation regis- 
ters should not normally be read from or written to. Dedicated 
memory is defined as: 


16-bit pee ee 
32-bit machine XtA00! 
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PROG= FELG16 


09998 


00008 
0004F 
009085 
09108 
O00190P 


0012P 
OOT4E 
00152 
00158 
0017? 
90138? 
00173P 


OO1AR 
OO9AR 
OOE2P 


ASSEMBLED 8Y CAL 03-066R07-00 (32-BIT) 
1 SCRAT 
2 NORX3 
3 WIDTH 120 
4 SQUEZ 
5 SQCHK 
6 CROSS 
7 IFZ ADC-2 
8 FDLG16 PROG 067-225F01496801A13 
9 ELSE 
10 FDLG32 PROG 06-225F02N91R01A13 
11 ENDC 
0000 12 RO EQU 9 
0001 13, R1 EQU 1 
0002 14° R2 EQU 2 
0003 15 R3 EQU 3 
0004 16 RY EQU 4 
0005 17) RS EQU 5 
0006 18 8&6 EQU 6 
0007 19 R7 EQU 7 
0008 20 8 EQU 8 
0009 21 R9 EQU 9 
OOOA 22 RA EQU 10 
000B 23° RB EQU 11 
OO0C 24 RC EQU 42 
000D 25 RD EQU 13 
QO0E 26 RE EQU 14 
OOOF 27 RF EQU 15 
O1CE 28 LDBUF EQU 
001B 29 STDIRM EQU 27 
o01Cc 30 STDIR EQU 28 
001F 31 ENDDIR EQU 31 
0020 32 STSAV EQU 32 
O1CB8R 33 STARTL B STARTL1 
1872R 34 B STARTS 
35 DS 8 
36 IFZ ADC-2 
37 DEVTYP cc X*0505° 
38 ELSE 
39 DEVTYP ie X*O101" 
40 ENDC 
41 PASAD DC X* 1047" 
42 TTYAD DB x°O2° 
43 LPAD DB X'62° 
44 BUS DB X*co° 
45 FLPAD DB x*ct’ 
46 CNOP 4 
47 DCX 0 
4g  * 
49 * LABEL INBUF MUST BE ON A Ha 
50 * 
51 INBUF DS 128 
52 PRTBUF DS 72 
53 CONIN DS 72 
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FLOPPY DIAGNOSTIC 


FLOPPY DIAGNOSTIC 


FILLER 


BOUNDARY, 


NOT A Fa 


BOUNDARY 


LOADER/GENERATOR 


LOACER/GENERATOR 


FDLOOS10 
FELO9020 
FDLO0030 
FDLOOOuD 
FDLO9050 
FDL00060 
FDLOOO070 
FDLO0080 
FDLOO090 
FDLO0100 
FDLO0110 
FDLO00120 
FDLO0130 
FDLO0140 
FDLO0150 
FDLO0160 
FDLO0170 
FDLO0180 
FDLO00190 
FDLO00200 
FDL00210 
FDLO0220 
FDL00230 
FDLOO 240 
FDLO0250 
FDLOO 260 
FDL00270 
FDLOO280 
FDLO029¢ 
FDLOO 300 
FDLO9310 
FDLOO 320 
FDLO090330 
FDLOO 340 
FDLO0350 
FDLO0 360 
FDLO0 370 
FDLOG38G 
FDLO0390 
FDLO00400 
FDLOO4#10 
FDLOO420 
FDLOO0430 
FDLOO44G 
FDL90450 
FDLOO4&60 
FDLOO0470 
FDLO0480 
FDLO9490 
FDLO9500 
FDLOO0510 
FDLOO520 
PDLOO0530 
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012AR 
012BR 
012CR 
912DR 
012ER 
O12FR 
0130R 
0131R 
0132R 
0133R 
01348 
0134K 


0136R 
0138R 
O13AR 
013CR 
Q13ER 
01408 
0142R 
OT44R 
O1486R 
O164R 
0166R 
01688 
016AR 
016CR 
O16ER 
Q0170R 
0172R 
0174R 
0176R 
0178R 
O17AR 
017CR 
O17ER 
0180R 
0182R 
0184R 
01862 
0188K 
O18AR 
018CR 
018ER 
0190R 


0190R 
0192R 
O194R 
O19AR 
O1AOR 


0000 

0000 

5345 5S14E 554D 
3036 4E55 4D20 
E41 4DaS 
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54 ASTERISK DB ere 
55 LPFLG DB x*0° 
56 FLG16 DB x*o° 
57 LDFLG cB x"Q° 
58 RANGE DB K°o° 
59 F516 DB x'o* 
60 F32 B38 X*°oO* 
61 PASL2 DB X* EES 
62 PASHR DB X"A3° 
63 PASRD DB X*AtS 
64 CNOP 4 
65 DCX 0 DUMMY 
66 * 
67 * LABEL SEQNUM MUST BE ON A HW BOUNDARY, 
68 * 
69 SEQNUM pc X'o* 
70 P06 BC X*O° 
71 REVLEV pc X*°o' 
72, ~=LowW DC x*o° 
73 bc X*°A90° 
74 HIGH pC K*o* 
75 DC X"3FFF* 
76 LRNS pc x*oO° 
77 FFORM DS 30 
78 DC X*qQ' 
79° NEXTI DC X°O" 
80 CSNI DC xt9° 
81 CSNPDBP DC ¥*o° 
82 CSEQNUMO DC x*o° 
83 CSEQNUMI DC x*'o° 
84 PRECHDO DC X*o° 
85 PRECMDI oC x*o° 
86 DIRP DC x'o° 
87 DRO DC x"'9Q° 
88 DRI DC X*°o* 
89 TTY Dc X°9894° 
90 MAXLRNO DC X°79C° 
91 LPDB DC x*o° 
92 NSLRN DC x‘O" 
93 NSLRNA DC x'o' 
94 TERMSEQ DC X¥*o* 
95 CSPI Dc x*o° 
96 SIZEI DC x"O° 
97 IPDBP BC x*o° 
98 NCPDBP DC STSAV aaa 
99 TEMSAY DC X'Q? 
100 CNOP 4 
101 * 
102 * LABEL RSSAV MUST BE ON A FW BOUNDARY 
103 * 
104 RSSAV DCX 0,0 
105 SN De C*SEQNUM® 
106 DBC C*O6NUM" 
107 DC C* NAMES 


NOT A FW BOUNDARY 


FDLOO540 
FDLO0550 
FDLOO560 
FDLO0570 
FDLO0580 
FDLO0590 
FDLO0600 
FDLO0610 
FDL00620 
FDL00630 
FDLO0640 
FDL90650 
FDLO0660 
FDCLO0670 
FDLO0680 
FDLO0690 
FDLO00700 
FDLOO710 
FBLO0720 
FDLOC730 
FDLOO740 
FDLO0750 
FDLO0O760 
FDL00770 
FDLO9780 
FDLOO790 
FDLIOROO 
FDL00810 
FDLO9820 
FDLO0630 
FDLO0640 
FDLO0850 
FDLOO860 
FDLO00870 
FDLO0880 
FDLO0890 
FDLOOS00 
FDLO0910 
FDL00920 
FDLO0930 
FDLO0940 
FDLOO950 
FDLO0960 
FDL00970 
FDLO9980 
FDLO0990 
FDLO1000 
FDLI1010 
FDLO1020 
FDLO1030 
FDLO1040 


FDLO1050 
FDLO1060 
FDLO1076 
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O1A4: 
01A8R 
OTACR 
01BOR 
01B908 
01B22 
O1B4R 
01B68 
O1BAR 


nanena 
VIDUR 


O1BER 
91COR 
O1C4k 
01C6R 
01C8P 
01CCR 
01CER 
01D2R 
01D6R 
01D8R 
O1DCR 
01EOR 
O1EGR 
O1E8R 
O1EAS 
D1ECK 
O1FOR 
OVF4e? 
01F8R 
OVFAR 
O1FCR 
0200R 
02028 
02068 
O20AR 
020ER 
0212R 
0216 
02188 
021CR 
0220P 
0222 
0224? 
O0225R 
0228R 
O22AR 
022CR 
0230R 
0234 
02385 
O23CE 
O2405 
O244R 
O246R 
O24AR 


&C4F 
4849 
5245 


8800 
2201 
2411 
C&20 
9E12 


Aann 


vou 
2411 
C820 
9EI2 
03CD 
41C0 
2400 
D2c0 
D200 
240F 
D200 
41C0 
&1C0 
41C0 
2411 
9012 
C5z0 
42 30 
D320 
0822 
2333 
4300 
2422 
D220 


C8 30. 


C820 
41C0 
C830 
2421 
41C0 
D330 
9E13 
2440 
9D12 
2061 
9B12 
9A12 
C420 
C§2z0 
4 330 
C520 
4330 
C520 
2183 
CB20 
C520 


5720 
4748 
5620 


0040 


0080 


S442R 


OT2FR 
0130R 


012DR 
13AAR 
181CR 
1748AR 


0004 
0276R 
012CR 


0358R 


01308 
1A7CR 
0010 

1552R 
012AR 


1552R 
0133R 


OO7F 
900D 
O3CAR 
0040 
O1BOR 
0060 


0020 
0023 


FLOPPY DIAGNOSTIC LOADER/GENERATOR PAGE 
108 oc Cc’ LOW® 
199 DC C*HIGH? 
110 BC C*REV® 
111 ALIGN 2 
112 STOPIT DC X°8800° 
113 DC X*2201° 
114 SINC LIS R1,1 
115 LHI R2,xX°40° 
116 OCR R1,R2 
117 BR RD 
7118 SNOR LIS R1,1 
‘11S LHI R2,X*80° 
120 OCR R1,R2 
121 BR RD 
422 STARTL1 BAL RC,CLRDIS 
423 LIS RO,9 
124 STB RO,F516 
125 STB RO,F32 
126 LIS RO,15 
127 STB RO, LDFLG 
128 BAL RC,LCORE 
129 BAL RC,FIOD 
130 BAL RC, SETUP 
131 . CONL LIS R1,1 
132 SSR R1,R2 
133 CLHI R2,X'O4" 
134 BNE DISPLD 
135 LB R2,FLG16 
136 LDAR. R2,82 
137 BZ SET32 
138 B P516 
139 SET32 LIS R2,2 
140 STB R2,F32 
141 P32 LDAI R3,FOXS 
142 LHI R2,16 
143 BAL RC,PASLAD 
144 LDAI R3,ASTERISK 
V4Hs LIS R2,1 
146 BAL RC,PASLAO 
147 LB R3,PASRD 
148 OCR R1,23 
149 LIS R4,0 
150 INP1 SSR R1,R2 
151 BTBS 8,1 
152 RDR R1,R2 
153 WDR R1,22 
154 NHI R2,X°7F* 
155 CLHI &2,x*OD* 
156 BE LOADIT 
157 CLHI R2,C*3° 
158 BE STOPIT 
159 CLHI R2,X*°60° 
160 BL COMINP 1 
161 SHI R2,X°20° 
162 COMINP1 CLHI &2,X'23° 
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BREAKPOINT 

LOOP 

LOAD DISPLAY ADDRESS 
LOAD INCRIMENTAL CMD 
COMMAND 

RETURN 

LOAD DISPLAY ADDRESS 
LOAD NORMAL CHD 
COMMAND 

RETURN 

CLEAR DISPLAY 
CLEAR 

CLEAR FLAG 

CLEAR FLAG 

SET LOAD FLAG 
STORE FLAG 

INIT LOW CORE 

FIND I/0 

PROCESS PRE-C¥DS 
LOAD DISPLAY ADDRESS 
SENSE STATUS 

FALSE SYNC 

USE DISPLAY 

GET FLAG 

SET CC 

SET SERIES 32 FLAG 
SET SERIES 16 FLAG & USE MICRO-BUS 
LOAD FLAG 

SET FLAG 

LOAD ADDRESS 

LOAD SIZE 

PRINT 

LOAD ADDRESS 

LOAD SIZE 

PRINT 

GET READ COMMAND 
COMMAND 

CLEAR 

SENSE STATUS 

BUSY LOOP 

READ DATA 

ECHO DATA 

STRIP PARITY 

CR 

YES, LOAD 

ADDRESS REQUEST?? 
DO RREAKPOINT 
LOWER CASE CHECK 
SKIP 

MAKE UPPER CASE 
POUND SIGN 


FDLO1080 
FDLO1090 
FDLO1100 
FDLO1110 
FDLO1120 
FDLO1130 
FDLO1146 
FDLO1150 
FDLO11760 
FDLO1170 
FDLO1180 
FDLO1190 
FDLO1200 
FDLO1210 
FDLO1220 
FDL91230 
FDLO1240 
FDLO1250 
FDLO1260 
FDLO1270 
FDLO1280 
FDLO1290 
FDLO1300 
FDLO1316 
FDIL01320 
FDLO1336 
FDLO1340 
FDLV1350 
FDLO01360 
FDLO1370 
FDLO1380 
FDLO1390 
FDLO14C00 
FDLO1410 
FDLO1420 
FDLO1430 
FDLO1440 
FDLO1450 
FDLO1460 
FDLO1470 
FDLO1460 
FDLO1490 
FDLO1500 
FDLO1510 
FDLO1520 
FDLO1530 
FDLO1540 
FDLO1550 
FDLO1560 
FDLO1570 
FDLO1580 
FDL01590 
FDLO1609 
FDLO1610 
FDLO1620 


AS Be i eect 


* 
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O24ER 
0252R 
0256R 
0258R 
O25CR 
025ER 
0260R 
0264R 
0266R 
O26AR 
026CR 
O26ER 
0272R 
0276R 
O27AR 
027CR 
027ER 
0282R 
0286R 
0288R 
O28AR 
028CR 
O28ER 
02908 
0294R 
02988 
029CR 
O2AOR 
O2A2R 
O2A4R 
O2A8R 
O2AAR 
O2AER 
O2BOR 
O2B4R 
O02B8R 
O2BAR 
O2BER 
02COR 
O2C4R 
02C8R 
02CCR 
O2DOR 
O2D4R 
02D6R 
02D8R 
O2DAR 
O2DER 
O2E2R 
02E6R 
O2EAR 
O2ECR 
O2FOR 
O2F2R 
O2F6R 


43B0 
C520 
2334 
C520 
2134 
9044 
4300 
0812 
41C0 
9144 
0644 
D310 
4300 
4400 
2501 
9810 
4150 
C800 
9104 
9520 
9910 
9400 
0800 
4330 
C400 
4000 
41C0 
2482 
2400 
41EO 
0800 
4230 
0833 
4330 
44CO 
2490 
41E0 
0899 
4230 
D390 
4859 
4869 
C550 
23B3 
2186 
230D 
C800 
4300 
CA60 
C560 


(2288 


CB60 
23C5 
C550 
2382 


0206R 
0008 


OOS5F 


O224R 


OBAAR 


0012R 
O224R 
O1B4R 


OBER 
OAOF 


O450R 
OFFF 

O16ER 
O442R 


16028 


0338R 


0348R 
11E2R 


16D4R 


O340R 
012CR 
0020R 
0024R 
OOOOR 


5555 
O030CR 
0080 
OOCOR 


0080 


1AEBR 


FLOPPY 


INP2 


INP3 


DISPLD 


SPIO 


RDIO 


COML 


LERR 


CHKHLS 


CHKLGE 


LOADER/ GENERATOR PAG 
BFC 11,P32 
CLHI R2,-X*°08° 
BE INP2 
CLHI R2,X‘*SF* 
BNE INP3 
SRLS R4,4 
B INP1 
LDAR R81,R82 
BAL RC, CONVERT 
SLLS R4,4 
OAR R4,R1 
LB R1,PASAD 
B INP1 
BAL RD,SINC 
LHI RO,X‘FFFF* 
WHR R1,R0 
BAL RD,SNOR 
LHI RO,;X"OAOF® 
SLLS RO,4 
EPSR R2,80 
RHR R1,89 
EXBR RO,80O 
LDAR RO,RO 
BZ LIST 
NHI RO,X°FFF® 
STH RO,CSEQNUNI 
BAL RC,CLRDIS 
LIS R8,2 
LIS RO,0 
BAL RE,8DIRECT 
LDAR R0,-R80O 
BNZ DERPT 
LDAR R3,R3 
BZ EQVDIS 
BAL RC,SULH56 
LIS R9,0 
BAL RE,RDLRN 
LDAR R9,R9 
BNZ ERRRDP 
LB R9,FLG16 
LDA RS,INBUF+6(R9) 
LDA R6,INSUF+10(R9) 
CLAI &5,STARTL 
BFC 11,LERR 
BL CHKHLS 
B CHKLGE 
LHI RO,X*°5555° 
B PRICODE 
AHI R6,128 
CLAI R6,STARTL 
BNL LER 
SHI R6,128 
B LCONT 
CLAI R5,LNZB 
BNL LCONT 


= 
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RECYCLE 

BS7? 

Y=S 

DELETE?? 

NO 

REMOVE LAST 

LOOP 

SWAP REGISTERS 
CHANGE TO HEX 
SHIFT 

MERGE DATA 

RE-LOAD ADDRESS 
Loop 

SET INCRIMENTAL 
LOAD F'S 

WRITE DATA 

“SET NORMAL 

LOAD PSW CONSTANT 
SCALE 

SET WAIT BIT 

READ DISPLAY 

SWAP DATA 

SET CC 

DISPLAY=0 

REMOVE ANY JUNK 
SET SEQUENCE NUMBER 
CLEAR DISPLAY 

SET INPUT MODE 
CLEAR ERROR RETYRN FLAG 
READ DIRECTORY 
LOAD RO 

DIRECTORY ERROR 
SET R3 

WRITE EOV 

LOAD 85-26 

CLEAR ERROR RETURN FLAG 
LOAD PD3 

LOAD R9 

LOAD ERROR 

LOAD 16 BIT FLAG 
LOAD LOW 

LOAD HIGH 

COMPARE LOW TO START 
ERROR | 

CHECK H<S 

CHECK L>E 

LOAD ERROR CODE 
PRINT 

ADD MAX EXTRA SIZE 
COMPARE HIGH TO START 
ERROP 

RESTORE 

OK 

COMPARE LOW TO END 
Ox 


FDLO1630 
FDLO1540 
FDLO1650 
FDLO1660 
FDLO1670 
FDLO1680 
FDLO01690 
FDLO1700 
FDLO01710 
FDLO1720 
FDLO1730 
FDLO1740 
FDLO1750 
FDLO1760 
FDLO1770 
FDLO1780 
FDLO1790 
FDLO1800 
FDLO1810 
FDLO1820 
FDLO1630 
2£DL01840 
FDLO1850 
FDLO1860 
FDLO1870 
FDLO1880 
£5L91890 
F9L01900 
FDLO1910 
FDLO1920 
FOL01930 
FDLO1940 
FDLO1950 
FDLO1960 
FDLO1970 
FDLO1980 
?DLO01990 
*DL02000 
#2L02010 
FDLO2020 
FDLO2030 
FDLO2040 
FDLO2050 
?DL02060 
¥5L902070 
+9L02980 
FDL02090 
?DL02100 
£DL02110 
¥DL02120 
¥DL92130 
?DL92140 


a 
pe 
o 
NO 
= 
Sa) 
=) 


om 
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O2FBR 
O2FAR 
O2FCR 
O2FER 
0302R 
O304R 
0308R 
030CR 
0310R 
0312R 
0316R 
O3TAR 
031CR 
0320R 
0324k 
0326R 
0328R 
032CR 
0330R 
0334R 
0338R 
033CR 
O340R 
O344R 
O348R 
034CR 
0350R 
03548 
0358R 
O35AR 
035CR 
0360R 
0364R 
0368R 
036CR 
O370R 
0372R 
0376R 
O37AR 
037CR 
037ER 
0382R 
0384R 
03868 
O38AR 
O33ER 
0390R 
0394R 
0398R 
039CE 
O3A0R 
O3A4R 
O3A8R 
O3ACR 
03B0R 


220F 
2641 
2490 
4150 
0899 
4230 
cso0 
D390 
0899 
4230 
D390 


FLOPPY DIAGNOSTIC LOADER/GENEXATOR 


LCONT 


PRTCODE 


EODPT 
DERPT 
ERRRDP 
EOVDIS 
EOVPT 


P515 


PS16C 


P516A 


P516D 


LERR 

R4,1 

R9,90 - 
RE,RDLRN 
R9,R9 
ERRRDP 
RO,X'FF* 
R9,F516 
R9,RI 

D516 
R9,F32 
R9,R9 

D32 
RD,SINC 
RO,RO 
R1,R0 
RD,SNOR 
SPIO 
RO,X*DDDD® 
PRTCODE : 
RO,X°1111° 
PRTICODE 
RO,X° 3333" 
PRTCODE 
RO.X*° EEEE* 
PRICODE 
RO,X°FF* 
PRTCODE 
R4,9 

RO,15 

RO, F516 
R3,FOXS 
22,16 
RC,4BO 
R3,ASTERISK 


R1,X°OD" 
11,LOADIT 
R1,C*d° 
STOPIT 
R1,X%°23° 
11,P516C 
R1,X*5F* 
11,P5168 


PAGE 


> 
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ERROR. 


INC LRN TO 1ST OF PROGRAM 


CLEAR ERROR RETUNN FLAG 
READ PROGRAM 
LOAD ERROR FLAG 
LOAD ERROR 

LOAD CODE 

LOAD 516 FLAG 
SET cc 

USE MICRO-BUS 
GET FLAG 

SET CC 

USE PASLA 

SET INCRIMENTAL 
SWAP 

WRITE DATA 

SET NORMAL 

STOP AT INPUT 
LOAD ERROR CODE 
PRINT 

LOAD ERROR CODE 
PRINT 

LOAD ERROR CODE 
PRINT 

LOAD ERROR CODE 
PRINT 

LOAD CODE 

PRINT 

CLEAR R4& FOR INPUT DATA 
SET FLAG 

STORE FLAG 

LOAD ADDRESS 
LOAD SIZE 

PRINT 

LOAD ADDRESS 
LOAD SIZE 

PRINT 

LOAD READ CMD 
COMMAND 

DUMMY READ 

BUSY WAIT 

READ DATA 

ECHO DATA 

STRIP PARITY 
LOWER CASE CHECK 
SKIP 

MAKE UPPER CASE 
CR CHECK 

LOAD PROGRAM 
ADDRESS REQU=ST?? 
DO BREAKPOINT 
POUND CHECK 
RESTART INPUT 
DELETE LAST 
REMOVE LAST 


FDLO2180 
FDLO2190 
FDLO2200 
FDLOZ210- 
FDL02220 
FDLO2230 
FDLO2240 
FDLO2250 
FELO2260 
FDLO2270 
FDLO02280 
FDLO2290 
FDLO2300 
FDLO2310 
FDL02320 
FDLO2330 
FDLO2340 
FDL02350 
FDLO2360 
FDLO2370 
FDLO2380 
FDLO2390 
FDLO2400 
FDLO2410 
FDLO2420 
FDLO2430 
FDLO2440 
FDLO24659 
FDLO2460 
FDLO2470 
FDLO2480 
FDLO2490 
FDLO2500 
FDLO2510 
FDLO2526 
FDLO2530 
FDLO2540 
FDLO02550 
FDLO2560 
FDLO2570 
FDLO2580 
FDL02590 
FDLO2600 
FDLO2510 
FDLO2620 
FDLO 2630 
FDLO2640 
FDLO2650 
FDLO2660 
FDLO 2670 
FDLO2680 
FDL02690 
FDLO2700 
FDL02710 
FDL02720 
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O3B2R 
O3B6R 
O388R 
O3BCR 
O3BER 
03COR 
O3C4R 
03C5R 
O3CAR 
03CER 
03D2R 
O3D4R 
03D8R 
O3DAR 
O3DCR 
O3DER 
O3EOR 
O3E4R 
O3E8R 
O3EAR 
O3ECR 
O3EER 
O3F2R 
O3F6R 
O3F8R 
O3FAR 
O3FCR 
O48O0R 
O4O4R 
O4O6R 
O408R 
O4OAR 
O4OER 
0412R 
0414R 
0416R 
0418R 
O41CR 
04&20R 
0422R 
O424R 
O426R 
O42AR 
O42ER 
O430R 
0432R 
0436R 
O43AR 
O43ZER 
O4482R 
O4LBR 
O448P 
O44AR 
O44ER 
0450R 


c510 
2337 
41C0 
9144 
0641 
4300 
9044 
4300 
c4u40 
4330 
0sc4 
4300 
9D02 
2081 
030C 
2445 
D3B4 
D2B4 
2744 
2215 
2446 
D3B4 
D2B4 
2741 
2215 
2444 
D3B4 
D2B4 
2741 
2215 
2442 
D3B4 
D2B4 
2741 
2215 
2444 
D3B4 
D2B4 
2741 
2215 
2442 
D3B4 
D2Bu 
2741 
2215 
C8BO 
ce4o 
4040 
4300 
41D0 
2400 
9810 
4100 
030C 
81C0 


0008 


OBAAR 


O37ER 


O37ER 
OFFF 
O450R 


O294R 


0194R 
OO9CR 


O19AR 
OOA3R 


O19FR 
OOBBR 


O1A4R 
O0O0D2R 


Q1A7R 
OODIR 


O1ACR 
OOAQR 


0078 
001B 
O174R 
O4E2R 
OiB4R 


O1BER 


O4H2R 


FLOPPY DIAGNOSTIC LOADER/GENERATOR PAGE 


273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 


P516B 


LOADIT 


MBSS 


HDR 
HDRA 


HDR1 


HDR2 


HDR3 


HDRY 


HDR5 


CLRDIS 


LIST 


R1,X*08" 

P516B 
RC,CONVERT 

R4,4 

R4,R4 

PS16A 

R4,4 

P516A 

R4,X*FFE* 

LIST 

RO,R4 

COML 

RO,R2 

8,1 

RC 

R4,5 

RB,SN(R4) 
RB, PRTBUF+2(R4) 
R4&,1 

HDRA 

R4,4 

RB, SN+6(R4) 

RB, PRTBUF+9(R4) 
Ru,1 

HDR1 

R44 
RB,SN+11(R4) 
RB, PRTBUF+33(R4) 
R4,1 

HDR2 

R4,2 
RB,SN+16(R4) 
RB, PRTBUF+56(R4) 
R4,1 

HDR3 

R4,4 
RB,SN+19(R4) 
RB, PRTBUF+63(R4) 


R4,2 
RB,SN+24(R4) 

RB, PRIBUF+15(R4) 
R4,1 

HDR5S 

RB, 123 

R4,STDIRM 
R4,DIRP 


RC,CLRDIS 


9 


6 
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BS?? 
YES 


CHANGE TO HEX 


SHIFT 

MERGE DATA 
READ MORE 
REMOVE LSD 
READ MORE 
REMOVE JUNK 
LIST FLOPPY 
SWAP REGISTERS 
GO TO COMMON 
SENSE STATUS 
BUSY LOOP 
RETURN 

LOAD count 
LOAD 

STORE 
DECREMENT 
LOOP 

LOAD COUNT 
LOAD 

STORE 
DECREMENT 
LOOP 

LOAD COUNT 
LOAD 

STORE 
DECREMENT 
LOOP 

LOAD COUNT 


DECREMENT 

LOOP 

LOAD COUNT 
LOAD 

STORE 
DECREMENT 

LOOP 

LOAD COUNT 
LOAD 

STORE 
DECREMENT 

LOOP 

FOOL PRINT COUNT 
FOOL LRN COUNT 
SAVE COUNTER 
PRINT HEADDER 
SET INCRIMENTAL 
LOAD ZERO'S 
CLEAR DISPLAY 
SET NORMAL 
RETURN 

CLEAR DISPLAY 


FDLO2730 
FDLO2740 
FDLO2750 
FDLO2760 
FDLO2770 
FDLO2780 
FDLO2790 
FDLO2800 
FDL02810 
FDLO 2820 
FDLO2830 
FDLO2840 
FDLO2850 
FDLO2860 
FDL02870 
FDLO2880 
FDLO2890 
FDLO2900 
FDL02910 
FDLO2920 
FDLO2930 
FDLO2940 
FDLO2950 
FDL02960 
FDL02970 
FDLO2980 
FDLO2990 
FDLO 3000 
FDLO3010 
FDL03020 
F DLO 3030 
FDLO 3040 
FDLO3050 
FDLO 3060 
F DLO 3070 
FDLO3080 
FDLO3090 
FDLO3100 
FDL03110 
FDLO3120 
FDLO3130 
FDLO3140 
FDLO3150 
FDLO3160 
FDL03170 
FDL03180 
FDLO3190 
FDLO3200 
FDLO3210 


- FDLO3220 


FDLO3230 
FDLO3240 
FDLO3250 
EDLO3260 
FDLO3270 


om 
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O4U54R 
O0458R 
O45AR 
O45CR 
O4SER 
0462R 
O464R 
O0466R 
O46AR 
O46ER 
O0472R 
O4&74R 
0478R 
O47AR 
O4uTCR 
0480R 
0482R 
0484 
0488R 
O48BCR 
O490R 
O494R 
O496R 
9498R 
O49CR 
O4AOR 
O4A2R 
D4A6P 
O4ABR 
OGAAR 
OWAER 
04B2R 
O4B6R 
O4¥BBR 
O4BCR 
O4BER 
O4C2R 
OGUCER 
O4CAR 
O4CER 
O4DOR 
O4D4R 
O4D6R 
O4DAR 
O4DER 
OUE2R 
O4ESR 
O4EBR 
O4ECK 
O4FOR 
O4FYE 
O4FBR 
O4FAR 
O4FER 
0500R 


D340 
9D4s 
2155 
245F 
D2£0 
23064 
2450 
D250 
41C€0 
4300 
24 B0 
41C0 
2482 
2490 
K1E0O 
0899 
2333 
4300 
484B 
C540 
4330 
O0844 
233E 
4210 
41CO 
2490 
44EO 
0899 
2333 
4300 
4300 
D330 
0833 
4330 
2421 
C8 30 
41T0 
4300 
D330 
0833 
4330 
2421 
C830 
41C0 
4300 
D330 
0833 
4330 
C820 
C830 
41C0 
2634 
C520 
218C 
4840 


0015R 


012BR 


012BR 
O83AR 
O3DER 


11E2R 


16D4R 


O340R 
O01CR 
7000 

O4FSR 


O4CAR 
T1E2R 
16D4R 
O340R 
O6A0R 
012BR 
0350R 


1ADAR 


15C8R. 


0350R 
012BR 


03308 


1ADAR 
15C8R 
03302 
012BR 


O51ER 
9048 
OO9AR 


15C8R- 


007D 


O174R 
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328 
329 
330 
331 
332 
333 
334 
335 


NOLP 
LCOM 


LCOMA 
LCOM1D 


LCOM1F 


LCOM1B 
EOVPTA 


EODPTA 


LCOM1E 


LCOM2 


LCOM2A 


LB 
SSR 
BTFS 
LIS 
STB 
B 
LIS 
STB 
BAL 
B 
LIS 
BAL 


R4,LPAD 
R4,R5 
5,NOLP. 
R5,15 
R5,LPFLG 
LCOM 
R5,0 
R5,LPFLG 


RB,0 
RC,SULH56 
R8,2 

89,9 
RE,RDLRN 
R9,89 
LCOM1F 
ERRRDP 

R4&, INBUF+2(RB) 
R&,X°7000° 
LCOM2 
R4,R4 
EOVPTA 
EODPTA 
RC,SULH56 


R3,LPFLG 
R3,33 
EOVPT 
R2,1 
R3,TOF 
RC,PRTO 
EQOVPT . 
R3,LPFLG 
R3,R3 
EQDPT 
R2,1 
R3,TOF 
RC,PRTO 
EODPT 
R3,LPFLG 
R3,R3 
MBCHK 
R2,72 
R3,PRTBUF 


LCON1C 
R4,DIRP 


08:35:14 OdO38/17/79 


LOAD PRINTER ADDRESS 
SENSE STATUS 

EXAMINE OR DU ACTIVE 
SET LP FLAG 

STORE 

GO TO COMMON 

CLEAR LP? FLAS 

STORE 

CLEAR PRINT BUFFER 
PRINT HEADDER 

CLEAR R8 

LOAD R5-R6 

SET INPUT FLAG 


.CLEAR -ERROR RETURN FLAG 


READ 1ST DIRECTORY BLOCK 
LOAD ERROR FLAG 
NO ERROR 

LOAD ERROR 

LOAD PDB POINTER 
DELETE? 

YES 

SET CC 

EOV FOUND 

EOD FOUND 

LOAD R5-R6 

CLEAR ERROR RETURN FLAG 
READ PDB 

LOAD ERROR FLAG 
NO ERROR 

LOAD ERROR 
FORMAT PRINT BUFFER 
GET FLAG 

SET CC 

IGNORE FF TO LP 
LOAD SIZE 

LOAD ADDRESS 
PRINT 

CONTINUE 

GET FLAG 

SET CC 

IGNORE FF TO LP 
LOAD SIZE 

LOAD ADDRESS 
PRINT 

CONTINUE 

LOAD PRTFLAG 

SET cc 

NO 

LOAD SIZE 

LOAD ADDRESS 

GO PRINT 
INCRIMENT PRINT POINTER 
DONE 

LOOP — 

RESTORE POINTER 


FDLO3280 
FDLO3290 
FDLO3300 
FDLO3310 
FDLO 3320 
FDLO3330 
FDLO 3340 
FDLO3350 
FDLO3360 
FDLO3370 
FDLO3380 
FDLO3390 
¥DLO3400 
FDLO3410 
FDLO 3420 
FDLO3436¢ 
FDLO3440 
FDLO3450 
FDLO 3460 
FDLO3470 
FDLO3480 
FDLO3490 
FDLO03500 
FDLO3510 
FDLO3530 
FDLO3540 
FDL9 2550 
FDLO3560 
FDLO3570 
FDLO3580 
FDLO3590 
FDLO3600 
FDLO3610 
FDLO3620 
FDLO34630 
FDLO3540 
FDLO3650 
FDLO 3560 
FDLO03670 
FDL03580 
FDLO3690 
FDLO37900 
FDLO3710 
FDLO3720 
FDLO3730 
FDLO3740 
FDLO3750 
FDLO376C 
FDLO3770 
FDL9O3780 
FDLO3790 
FDLO3800 
FDLO3810 
FDLO3820 


A: TES: 


OADER/GEN ERATOR 


R4,1 
R4,DIRP 
R4,STSAYV 
11,LCOMA 
DERPT 
R4U,DIRP 
LCOM1D 
R3,F516 
R3,R3 
CONCHK 
R2,72 
R3,PRIBUF 
RC, MBO 
LCON2 
R2,2 
R2,R3 
R3,X'O4" 
11, PASCHK 
R3,X°01" 
PASCHK 
R2,72 
R3,PRTBUF 
RC,TTYO 
LCOM2 
R2,PASAD+1 
R2,R3 
R3,K* Ou" 
11,LCOM2 
R3,X*OC' 
11, LCOM2 
R272 
R3,PRTBUF 
RC, PASLAO 
LCOM2 
R9,X°F* 
11, CONVB3 


R2,EQ0JMSGS 
R3,EQJMSG 
RC,MBO 
P5716C 
RO,X*EEEE* 
11,D5168 
R2,EQOVMS 
R3,EOVN 
RC, MBO 
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INCRIMENT LRN POINTER 
SAVE POINTER 

DONE aaa 

LOOP 

DIRECTORY HAS NO EOQV OR EOD 
RESTORE POINTER 

LOOP 

LOAD 516 FLAG 

SET CC 

NOT 516(NO MICRO-BUS) 
LOAD SIZE 

LOAD ADDRESS 

GO PRINT 

CONTINUE 

LOAD CLI ADDRESS 
SENSE STATUS 

FALSE SYNC CHECK 

NOT CLI 

DU TEST 

CLI IS DU 

LOAD SIZE 

LOAD ADDRESS 

GO PRINT 

CONTINUE 

LOAD TRANSHIT ADDRESS 
SENSE STATUS 

FALSE SYNC CHECK 

NOT PASLA 

DU CHECK 

PASLA DU 

LOAD SIZE 

LOAD ADDRESS 

GO PRINT 

CONTINUE 

COMPARE TO MAX HEX VALUE 
OK 

NON HEX DIGIT 
COMPENSATE FOR 0-9 
NUMBER EQUALS A-F 
DONE 

COMPENSATE FOR A-F 
RETURN 

LOAD BLANK 

EXIT 


NEXT 

LOAD SIZE 
LOAD ADDRESS 
GO PRINT 


FDLO 3830 
FDLO3840 
FDLO3850 
FDLO3360 
FDLO3870 
FDLO 3880 
FDL03890 
FDLO3900 
FDLO3910 
FDL03920 
FDL03930 
FDLO3940 
FDLO3950 
FDLO 3960 
FDLO 3970 
FDLO 3980 
FDL0 3990 
FDLOWOOC 
FDLO4010 
FDLO4020 
FDL04030 
FDLO4O040 
FDLO4050 
FDL04060 
FDLO4070 
FDLO4080 
FDLO4% 90 
FDLO4100 
FDLO4110 
FDLO4120 
FDLO4130 
FDLOW140 
FDLO4150 
FDLO4160 
FDLO4170 
FDL08 180 
FDLO04190 
FDLO4200 
FDLOG210 
FDLO4220 
FDL04230 
FDLO4240 
FDLO4250 
FDLO4260 
FDLO4270 
FDLO4280 
FDLO4290 
FDLO4300 
FDLO& 310 
FDE04320 
FDLO4330 
FDLO4340 
FDL04350 
FDL04360 
FDL04376 


9 


06-225FO1M96R01A13 


O5COR 
OSC4R 
O5CaR 
O5CAR 
O5CER 
O5D2R 
O05D6k 
OSDAR 
OSDER 
O5E0R 
OSE4SR 
O5E8R 
O5ECR 
O5FOR 
OSFAR 
O5F6R 
OSFAR 
OSFER 
0602R 
06068 
O60AR 
O60CR 
0610R 
0614R 
0618R 
061CR 
0620K 
96222 
06268 
O62AF 
O62ER 
06328 
0636R 
0638R 
063CR 
O0640R 
O644P 
O648R 
O64CE 
O64ER 
0652R 
0656R 
O65A2 
O65ER 
06628 
05648 
0668R 
066CF 
0670R 
0674R 
06788 
N67AE 
O67ER 
06862R 
0686 


4300 
C500 
21B9 
D320 
C830 
4100 
4300 
C500 
2189 
D320 
C820 
41C0 
4300 
C560 
2189 
D320 
C820 
41C0 
4300 
C500 
2137 
D320 
C830 
41C0 
4300 
C500 
21B9 
D320 
C830 
41C0 
4300 
c500 
21B9 
D320 
C830 
41C0 
4300 
C500 
2129 
D320 
C820 
41C0 
43C0 
C500 
2129 
D320 
CB 30 
41CO 
4300 
C560 
2189 
D320 
C830 
41C0 
4300 


O36CR 
3333 


TAETR 
1A3CR 
O804R 
O36CR 
5555 


TAE8R 
TA4ER 
O804R 
036CR 
1171 


1ADDR 
1966R 
O804R 
036CR 
DDDD 


1AEOR 
1962R 
O804R 
036CR 
OOFF 


1AEOR 
19A0R 
1552R 
0206R 
EEEE 


JAEOR 
1A66R 
1552R 
0206R 
3333 


1AE7R 
1A3CR 
1552R 
0206R 
5555 


TAESR 
TAKER 
1552R 
0206R 
1111 


1ADDF 
19668 
15522 
0206R 


FLOPPY DIAGNOSTIC LOADER/GENERATOR 


438 
439 
420 
ay 
442 

443 
uuu 
44s 
446 
447 


D516B 


D516C 


D516D 


D516E 


D516F 


D32 


D320A 


D3208 


D32¢C 


D3200 


P516C 
RO,X%"3333" 
11,D516C 


R2,LSERRMS | 


R3,LSERRM 
RC,4BO 
P5176C 
RO,X*5555° 
11,D516D 


- R2,LERRAS 


R3,LERRM 
RC,430 
P516C 
RO,X°1111" 
11,D516E 
R2,EOVRTNMS 
R3,EOVRINM 
RC,MBO 
P516C 
RO,X*DDDD® 
D516F 
R2,EODERRS 
R3,E0DERR 
RC,MBO 
2DS5156C 
RO,X°FF* 
11,D320A 
R2,c£0J34S6S 
R3,E0JMSG 
RC, PASLAO 
P32 
RO, X* EEEE® 
11,D320B 
R2,EOVMS 
R3,E0VM 
RC,PASLAO 
P32 
RO,X*3333° 
11,D320C 
R2,LSERRAS 
R3,LSERRM 
RC,PASLAO 
P32 
RO,X°5555° 
11,D320D 
R2,LERRMS 
R3,LERRA 
RC,PASLAG 
P32 
RO,X°1111" 
11,D320F 
R2,f50VRTNAS 
R3,EQYRTNM 
RC,PASLAO 
P32 
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INPUT 

LOAD STATUS ERROR 
NEXT 

LOAD SIZE 
LOAD ADDRESS 
GO PRINT 
INPUT 
OVERLOAD ERROR 
NEXT 

LOAD SIZE 
LOAD ADDRESS 
SO PRINT 
INPUT 

EOD ERROR 
NEXT 

LOAD SIZE 
LOAD ADDRESS 
PRINT 

INPUT 

EOD ERROR 
EXPANSION 
LOAD SIZE 
LOAD ADDRESS 
PRINT 

INDNT 

E0J 

NEXT 

LOAD SIZE 
LOAD ADDRESS 
SO PRINT 
INPUT 

EOV 

NEXT 

LOAD SIZE 
LOAD ADDRESS 
SO PRINT 
INPUT 

LOAD STATUS ERROR 
NEXT 

LOAD SIZE 
LOAD ADDRESS 
GO PRINT 
INPUT 
OVERLOAD ERROR 
NEXT 

LOAD SIZE 
LOAD ADDRESS 
GO PRINT 
INPUT 

EOD ERRO°? 
NEXT 

LOAD SIZE 
LOAD ADDP ESS 
PRINT 

INPUT 


FDLO4380 
FDLO4390 
FDLO4400 
FDLO4410 
FDLOG4H20 
FDLO4430 
FDLO4e40 
FDLOUBSO 
rDLO4460 
FDLOYET7O 
FDLO44&80 
FRLOR49I0 
FDLO4500 
FDLO4510 
FDLO45§20 
FDLO4530 
FDLOUS4&O 
FDLO4550 
FDLO4560 
FDLO4570 
FDLO4580 
FDLO4590 
FDLO4600 
FDLO4610 


“Lon 
FDLOSS20 


FDLO4630 
FDLO464O 
FDLO4550 
FDLO4560 
FDLO4&670 
FDLO4680 
FDLO#690 
FDLO4700 
FDLO4710 
FDIL04720 
FDLO4730 
FDLO4740 
FDLO47506 
FDLO4760 
FDLO4&770 
FDLO4780 
FDLO4790 
FELO4&800 
FDLO48 10 
FDLO4820 
FDLO04830 
FDLO&B84O 
FDLO4850 
FDLO4860 
FDLO4870 
FDLO4880 
FDLO4890 
FDLO4900 
FDLO4510 
FDLO&920 


Te NEE 


-~ 


D320F 
FORMAT 


FMTA 
FLOOP 


RO,X*DDDD* 
D320F 
R2,-EQDERRS 
R3,EQDERR 
RC, PASLAO 
P32 

RC,CPD 
R9,INBUF 
EOVPT 

EOVPT 
R9,INBUF 
RD,CONVB 
R9,PRTIBUF+4 
R9,INBUF+1 
R9,4 
RD,CONVB 
R9,PRTBUFtS 
R9,INBUF+1 
R9,X°OF® 
RD,CONVB 
R9,PRTIBUF+6 
R9,INBUF+2 
RD,CONVB 
R9,-PRTBUF+10 
R9,INBUF+3 
R9,4 
RD,CONVB 
R9,PRTBUF+11 
RO, INBUF+3 
R9,X°OF® 
RD,CONVB 
R9,PRTBUF+12 
R9,INBUF+tS 
R9,4 
RD,CONVB 
R9,PRTBUF+15 
R9,INBUFtS 
R9,X°OF® 
RD,CONVB 
R9,PRIBUF+16 
R9,INBUF+4 
R9,4 

FMTA 
RD,CONVB 
R9,PRTIBUF+18 
R9,C°." 
R9,PRTBUF+17 
RA,O 


R9,INBUF+16(RA) 
RO,PRTIBUF+22(RA) 


RA,1 

RA, 30 

11,F LOOP 
RO, INBUF+7 
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EOD ERROR 
EXPANSION 


LOAD SIZE 


LOAD ADDRESS 
PRINT 

INPUT 

CLEAR PRINT BUFFER 
LOAD SEQUENCE NUMBER 
EQV 

EOD 

LOAD 1ST DIGIT 
CONVERT 

STORE 

LOAD NEXT 2 
REMOVE 3RD 
CONVERT 

STORE 

RELOAD 

REMOVE SECOND 
CONVERT 

STORE 

LOAD 1ST 
CONVERT 

STORE 

LOAD NEXT 2 
REMOVE 3RD 
CONVERT 

STORE 

RELOAD 

REMOVE 2ND 
CONVERT 

STORE 

LOAD 1ST+2ND 
REMOVE 2ND 
CONVERT 

STORE 

RELOAD 

REMOVE 1ST 
CONVERT 

STORE 

LOAD EXTENSION DIGIT 
SCALE 

SKIP (FIELD=0) 
CONVERT 

STORE 

LOAD DECIMAL POINT 
STORE 

CLEAR RA 

LOAD 

MOVE 

INCRIMENT COUNT 
DONE 

LOOP 

LOAD NSB 
REMOVE LOWER 


FDLO4930 
FDLO4&9480 
FDLO4950 
FDLO4I60 
FDLO4970 
FDLO4980 
FDLO4990 
FDLO5900 
FDLO5010 
FDLO5020 
FDLO5030 
FDLO5040 
FDLO5050 
FDLOSO60 
FDLO5070 
FDLO50680 
FDLO5090 
FDLO5100 
FDLO5110 
FDLO5120 
FDLO£130 
FDLO5140 
FDLO&150 
FDLO5160 
FDLO5170 
FDLO£180 
FDLO3130 
FDLO5200 
FDLO5210 
FDLO&220 
FDLO5230 
FDLO5240 
FDLO&S250 
FDLO5260 
FDLO5270 
FDLO5280 
FDLOS290 
FDLO5300 
FDLO5310 
FDLO5&320 
FDLO5330 
FDLO5340 
FDLO05350 
FDLO5360 
FDLO5370 
FDLO5380 
FDLO5390 
FDLO5400 
FDLO5410 
FDLO5426 
FDLO5430 
FDLOS440 
FDLO5455 
FDLO5460 
FDLO54&70 
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0752R 


. O7T56R 


O75AR 
075ER 
0762R 
0766R 
O76AR 
O76ER 
O77OR 
OF 74R 
0778R 
077CR 
07808 
O7B4P 
0788R 
078CR 
O78 ER 
0792R 
0796R 
O79AR 
O79ER 
O7A2R 
O7A6R 
O7AAR 
O7ACR 
07B0R 
O7B4R 
O73 8R 
073CR 
O7COR 
O7C4R 
O7C8R 
O7CAR 
O7CER 
07D2R 
O7D6R 
O7DAR 
O7DER 
O7E2P 
O7E6R 
O7E8P 
O7ECR 
OTFOR 
O7FUR 
O7FBR 
O7FCR 
O8090R 
O804R 
O808R 
OSOAR 
O8BOCR 
O80ER 
08108 
0812R 
0816R 


4100 
D290 
D390 
C490 
41D0 
D290 
D390 
9094 
41D0 
D290 
D390 
c490 
41L0 
D290 
D390 
9094 
410 
D290 
D390 
C490 
4100 
D290 
D390 
9094 
4100 
D290 
D390 
C490 
4100 
D290 
D390 
9094 
4400 
D290 
D390 
C490 
41D0 
D290 
D390 
9094 
4100 
D290 
D390 
C490 
44LO 
D290 
4300 
D300 
2412 
9EC1 
2309 
9D04 
2081 
DAOQ3 
2631 


O5S7CR 
OODOR 
0021R 
OOOF 

057CR 
OOD1IR 
0022R 


O5S7CR 
CODZE 
00228 
0O00F 

O57CR 
OOD3R 
0023R 


O57CR 
JOD4ER 
0023R 
O00F 

O57CR 
OOD5R 
0025R 


O57CR 
OODIR 
0025R 
NO00F 

OS7CR 
OODAR 
0026R 


O57CR 
OODBR 
0026R 
OOOF 

OS7TCR 
OODCR 
O0027E 


OS7TCR 
OODDR 
0027R 
OOOF 

O57CR 
OODER 
O4E2R 
0016R 


0000 


FLOPPY DIAGNOSTIC LOADER 


“BO 


MB1 


GENERATOR 


RD,CONVB 
R9O,PRTIB3UFt+H5S4 
R9,INBUF+7 
R9,X*OF’ 
RD,CONVB 
R9,PRTBUF+55 
R9,INBUF+8 


R9,INBUF+8 
RO,X'OF* 
RD,CONVB 
R9,PRTBUF+57 
R9,INBUFH9 
RO,u 
RD,CONVB 
RO,PRTBUF+58 
R9,INBUF+9 
R9,X*OF* 
RD,CONVB 
R9,PRTBUF+S9 
R9,INBUF+114 
R9,4 

RD, CONVB 
R9,PRIBUF+63 
29, INBUF+11 
29,X'OF' 
RD,CONVB 
R9,PRTBUF+64 
R9, INBUF+12 
29,4 
PD,CONVS 
R9,PRTBUF+65 
R9,INBUF+12 
R9,X'OF* 

RD, CONVB 
R9,PRTBUF+66 
R9,INBUF+13 
R9,4 
RD,CONV3 
R9,PRIBUF+57 
R9, INBUF+13 
R9,X*OF" 
RD,CONVS 

RO, PRTBUF+68 
LCOM1E 
RO,MBUS 

R1,2 

RO,R1 

MB2 

RO,R4 

554 

RO,9(R3) 
R3,1 


11. 08:35:14 38/17/79 


CONVERT 
STORE 

RELOAD 
REMOVE UPPER 
CONVERT 
STORE 

LOAD NEXT 2 
REMOVE LOWER 
CONVERT 
STORE 

RELOAD 
REMOVE UPPER 
CONVERT 
STORE 

LOAD LAST 2 
REMOVE LOWER 
CONVERT 
STORE 

RELOAD 
REMOVE UPPER 
CONVERT 
STIRE 

LOAD MSB 
REMOVE LOWER 
CONVERT 
STORE 

RELOAD 
REMOVE JPPE? 
CONVERT 
STORE 

LOAD NEXT 2 
REMOVE LOWER 
CONVERT 
STORE 

RELOAD 
REMOVE -UPPER 
CONVERT 
STORE 

LOAD LAST 2 
REMOVE LOWER 
CONVERT 
STORE 

RELOAD 
REMOVE UPPER 
CONVERT 
STORE 

RETURN 

LOAD CCNSOLE ADDRESS 
LOAD WRITE CHD 
COMMAND 

SKIP 

SENSE STATUS 
BUSY LOOP 
WRITE DATA 
INCRIMENT SUFFER POINTER 


FDLOS480 
FDLO.5490 
FDLO5500 
FDLO5510 
FDL05520 
FDLO5530 
FDLOSS4O 
FDLO5550 
FDLO5560 
FDLO5570 
FDLO5580 
FDLO5590 
FDLO5600 
FDLO5610 
FDLO5620 
FDLO 5630 
FDLOSA4O 
FDLO5650 
FDLO5660 
FDLO5670 
FDLO5680 
FDLO5690 
FDL05700 
FDLOS710 
FDLO5720 
FDLO5730 
FDLOS740 
FDLOS756 
FDLO5760 
FDLO5770 
FDL05780 
FDLO5790 
FDLO5800 
FDLO5816 
FDLO5820 - 
FDLO5830 
FDLO5840 
FDLO5850 
FDLO5860 
FDLOS870 
FDLO5880 
FDLO58906 
FDLO5900 
FDLO5910 
FDL05920 
FDLO5930 
FDLO5940 
FDLO5950 
FDLO05960 
FDLO5970 
FDLO5980 
FDLO5990 
FDL06000 
FDL05010 
FDL06020 


Br 
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O818R 
O81AR 
981CR 
O81ER 
0820R 
0822RP 
O824R 
0826R 
0828R 
O82AR 
082CR 
O82ER 
08308 
O832R 
0834R 
08 36R 
O83AR 
O83ER 
O842R 
O844R 
O848R 
OB4AR 


084CR 
OS4ER 
9850R 
98522 
O854R 
O858R 
085CR 
0860R 
O864R 
O868R 
O86CR 
O870R 
0874R 
O878R 


O87CR 
O87ER 
O880R 
O884R 
O886R 
0888R 
O88AR 
O88CR 
O88ER 
9890R 
O894R 
0898 
O89CR 
O8A0K 
O8A2R 
OB8A4R 
O8A6R 


2721 
2036 
c30Cc 
26 1D 
9Dc4 
2081 
9A01 
241A 
9D04 
2081 
9A01 
2511 
9DC4 
2081 
9A01 
4300 
C890 
C8 AO 
2791 
D2A9 
2033 
030C 
0000 
2440 
2363 
4000 
4010 
4040 
C840 
D310 
D320 
C420 
C620 
cs50 
C860 
CB60 
CA60 


9D13 
2081 
D915 
2652 
0565 
2286 
9D13 
2152 
230E 
c8so 
4050 
c850 
4050 
9E12 
9D13 
2221 
4300 


O80ER 
0049 


0020 © 


OO9AR 


O84CR 


0022 
Q01C 
0078 
0079 
0030 
00C7 
o0DO 
0999R 
O84CR 
00DO 


0000 


D500 
0050 
OOCF 
0052 


FLOPPY DIAGNOSTIC LOADER/GENERATOR 


603 
604 
605 
606 
607 
608 
609 
610 
611 


MB2 LIS 


CPD LHI 


CPD1 SIS 


STARTAD EQU 
BOOTST LIS 


BOOT? STH 


AHI 
* LOAD REST OF 
BOOT1B SSR 


REDOBL LHI 


RA, PRTBUF(R3) 


CPD1 

RC 

*® 

R4,90 
BOOT! 
X*4000° 
X*°4ug10* 
R4,X*22° 
R4,STDIR 
R1,X'78" 
R2,X'79° 
R2,X°30° 
R2,X°C7* 
R5,X"DO" 
R6,ENDAD 
R6,STARTAD 
R6,X"DO' 
BOOTLOADER 
R1,R3 
8,1 
R1,0(R5) 
R5,2 
R6,R5 
BOOT1B 
R1,R3 
5,REDOBL 
STOPA 
R5,X'D5900° 
RS5,X°50° 
R5,X°CF* 
R5,X°52° 
R1,R2 
R1,83 
271 
K°4300° 


>) 
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DECREMENT COUNT 
LOOP 

RETURN 

LOAD CR 

SENSE STATUS 
BUSY LOOP 

WRITE DATA 

LOAD LF 

SENSE STATUS 
BUSY LOOP 

WRITE DATA 

LOAD NULL 

SENSE STATUS 
BUSY LOOP 

WRITE DATA 

SKIP 

LOAD R9 

LOAD ASCII BLANK 
DECREMENT COUNT 
CLEAR 

LOOP 

RETURN 


LOAD 
SKIP 


RESISTER SAVE POINTER(1681T) 
LOAD DIRECTORY LRN aaa 
LOAD DEVICE ADDRESS 

LOAD BOOT CMD 

REMOVE DRIVE # 

SET STOP CMD 

LOAD START 

LOAD END 

FIND REAL SIZE 

ADD IN REAL BIAS 


SENSE STATUS 

WAIT FOR BUSY NOT 
READ DATA 

BUMP 

DONE? ? 

NO, LOOP 

SENSE FINAL STATUS 
RETRY BOOT LOAD 
STOP BOOT LOAD 
SETUP 

AUTOLOAD 
PARAMETERS 

ON ERROR 

STOP 

SENSE STATUS 

IDLE NOT LOOP 
JUMP TO 


FDL06030 
FDLO6040 
FDL06050 
FDLO06060 
FDLO6070 
FDLO6C80 
FDLO6090 
FDLO6 100 
FDLO06110 
FDLO6120 
FDLO6130 
FDLO6é140 
FDLO6150 
FDLO6160 
FDLO6170 
FDLO6180 
FDLO06190 
FDLO6200 
FDLO&210 
FDLO06220 
FDLO6230 
FDLO6240 
FDLO6250 
FDL06260 
FDL06270 
FDL05280 
FDLO4G290 
FDLO6300 
FDL06310 
FDLOE320 
FDLO06330 
FDLO06340 
FDLO6350 
FDLO6360 
FDL06370 
FDL06380 
FDL06390 
FDLO6400 
FDLO6410 
FDLO6420 
FDLO6430 
FDLO6440 
FDLO6450 
FDLO6460 
FDLO6470 
FDLO6480 
FDLO6490 
FDLO6500 
FDL06510 
FDL06520 
FDLO06530 
FDLO6540 
FDLO6550 
FDLO6560 
FDLO6570 


06-225F01M96R01A13 


O8A8E 
O8AAR 
O8ACP 
O8AER 
O8BOK 
O8B4R 
08B88 
O8BAR 
O8BCR 


O8BER 
O8COR 
O8C2R 
OB8CHR 
08C8R 
O8CAR 
08CCR 
O8CER 
08DOR 
08D2R 
O8D4R 
O8D6R 
O8DAR 
O8DER 
O8E2R 
OB8E4R 
O8E6R 
08 E82 
O8EAR 
O8ECR 
O8FOR 
O8F2R 
OBF4R 
O8F6R 
O8FAR 
O8FCR 
09090R 
0902R 
03906R 
OSOAR 
O90CP 
QO9DER 


091028 
09128 
09142 
0918R 
O91AR 
091Cz 
091E2 
09298 
0922 
09242 
0926R 
09282 


0c50 
9ET2 
9213 
2221 
C8EO 
C860 
9814 
2726 
9F12 


91CE 
O1EE 


9000 


O8ACR 
O84CR 
0980 


4000 


O1D4 
01D0 


O1CE 
024D 


0000 


FLOPPY DIAGNOSTIC LOADER/GENERATOR 


DC 
STOPA OCR 


IDLE SSR 


BFBS 
LDAI 
LDAI 
WHR 
SIS 
OCR 


x'50° 

R1,R2 

R1,83 

271 
RS,LDBUF 
R6,LDBUF+32 
R1,24 

R2,5 

R1,R2 


* READ DIRECTORY 


BOOT1C SSR 
BIBS 


~ REDO AIS 


STOP 1 AIS 


COM1 WHR 
OCR 


* READ PD8 
BOOT 1D SSR 


REDO AIS 


R1,R3 
8,1 
R1,0(R5) 
R5,2 
R6,85 
BOOT1C 
R1,23 

5, REDO 
STOP 1 
R2,6 
R1,82 
R3,IDLE 
R3,STARTAD 
R3,X°890° 


R4,X"4000° 
R4,R4 

IS 16 

R7,0 
R4,LDBUF+6 
COM 
R4,LDBUF+2 


R1,R4 


8,1 
R1,9(R5) 


5,REDO1 
RDLDRGEN 
R2,5 
R1,R2 
R1,R83 


tl 


33:35:14 98/17/79 
AUTOLOAD & RETRY 

STOP BOOT LOAD 

SENSE STATUS 

IDLE NOT LOOP 

LOAD START 

LOAD END 

*®RITE LAN TO CONTROLLER 
CHANGE STOP TO PEAD 
PEAD 


SENSE STATUS 

@€AIT FOR BUSY NOT 

READ DATA 

BUMP 

DONE? ? 

NO, LOOP 

SENSE FINAL STATUS 
ERROR RETRY 

ISSUE STOP 
CHANGE READ TO STOP 
STOP 

GET BRANCH ADDRESS 

GET SIZE 

ADD IN REAL CORRECTED BIAS 
BRANCH 

CHANGE READ TO STOP 
STOP 

SENSE STATUS 

IDLE NOT LOOP 

LOAD TEST DATA 

DOUBLE 

16 BIT MACHINE 

SET 32 FLAG 

LOAD 32 32IT PDB POINTER 
SKIP 

LOAD 16 BIT PDB POINTER 
CLEAR 32 FLAG 

LOAD START 

LOAD END 

ARITE LRN OF PDB TO CONTROLLER 
CHANGE STOP TO READ 
READ 


SENSE STATUS 

WAIT FOR 3USY NOT 
READ DATA 

3uUMP 

DON=E?? 

NO, LOOP 

SENSE FINAL STATIS 
FRRIR RETRY 

READ PRIGRAM 
CHANGE READ TO STOP 
STOP 

SENSE STATUS 


FDL06580 
FDLO06590 
FDLO6600 
FDLO06610 
FDLO6620 
FDL06630 
FDLOG6640 
FDLO6650 
FDLO6660 
FDLO65670 
FDLO6680 
FDL06690 
FDLO6700 
FDLO06710 
FDLO6720 
FDL06730 
FDLO6740 
FDLO6750 
FDLO6760 
FDLO6770 
FDLO6780 
FDLO6790 
FDL06800 
FDLO6810 
FDL06820 
FDLO068 30 
FDLO6840 
FDLO6#50 
FDLO6860 
FDL06870 
FDL06880 
FDLO6890 
FDL06900 
FDLO06910 
FDLO5920 
rDL06930 
FDLO6940 
FDLO6950 
FDLO6960 
FDLO06970 
FDLO6980 
FDLO6990 
rDLO7000 
FEPLO7010 
FDLO7020 
FDLO7030 
FDLO7O0HO 
FDLO7050 
FDLO7060 
FDLO79070 


FDLO7080 


FDLO7990 
FDLO7100 
FDLO7110 
FDLO7120 


7m, 


01D6 
0992R 
0998R 
O1DA 


0000 


O946R 
O84CR 
0080 


0999R 
0016R 
0092 


LOADER/GER ERATOR PAGE 

BFBS 2,1 

LDAI R83,COM 

SHI R3,STARTAD 

AHI R3,X°80° 

BR R3 
RDLDRGEN AIS R2-6 

OCR R1,R2 

SSR 21,23 

BFBS 2,1 

SIS R2,6 

AIS R4,1 
REDO3 LH R5,LDBUF+8 

STH R5,300TEN16 

STH R5, BOOTEN 32 

LH R6,LDBUF+12 

WHR R1,R24 

OCR R1,R2 
* READ LOADER/GENERATOR PROGRAMS 
BOOTIE SSR R1,R3 

BT8S 8,1 

RH R1,0(R5) 

AIS R5,2 

CLAR R6,25 

BNCS 300T1E 

SSR R.R3 

BTFS 5,REDO2 

BS TURNOVER 
REDO2 AIS R2,6 

OCR R1,82 

SSR R1,R3 

BFBS 2,1 

LDAI R&3,REDO3 

SHI R3,STARTAD 

AHT R3,X°80° 

BR R3 
TURNOVER AIS R2,6 

OCR R1,R2 

SSR R1,R3 

BFBS 2,1 

LDAR R7,R7 

BZ $032 

DC X°4&300° 
BOOTEN16 DC X¥*6000" 
6032 DC X¥°4300° 

DC X*4000° 
BOOTEN32 DC X*6000° 
ENDAD EQU = 
MBI LB R1,8BUS 

LHI RO,X°92° 

OCR R1,R0 

RDR R1,R2 

LIS R3,0 
MBI1 SSR R1,22 

BTBS 8,1 

RDR R1,82 


O6:35:714 Ges/IT/TS 


IDLE NOT LOOP 

GET BRANCH ADDRESS 

GET SIZE 

ADD IN REAL CORSECTED BIAS 
BRANCH 

CHANGE READ TO STOP 

STOP 

SENSE STATUS 

IDLE NOT LOOP 

CHANGE STOP TO READ 
INCRIMENT LRN TD PROGRAM 
LOAD LOW 

STORE TRANSFER 

STORE TRANSFER 

LOAD HIGH 

WRITE LRN OF PROGRAM 
READ 


SENSE STATUS 

WAIT FOR BUSY NOT 
READ DATA 

BUMP 

DONE?? 

NO, LOOP 

SENSE FINAL STATUS 
ERROR RETRY 
TURNOVER CONTROL 
CHANGE READ TO STOP 
STOP 

SENSE STATUS 

IDLE NOT LOOP 

GET BRANCH ADDRESS 
GET SIZE 

ADD IN REAL CORRECTED BIAS 
BRANCH 

CHANGE READ TO STOP 
STOP 

SENSE STATYS 

IDLE NOT LOOP 

LOAD 32 FLAS 

JUMP TO 32BIT START 
BRANCH TO 

16 BIT START 

BRANCH TO 

(RX3 TYPE) 

32 BIT START 


LOAD ADDRESS 
LOAD READ CMD 
COMMAND 

DUMMY READ 
CLEAR R3 
SENSE STATUS 


BUSY LOOP 


READ DATA 


FDLO7130 
FDLO7140 
FDLO7150 
FDLO7160 
FDLO7170 
FDLO7186 
FDLO7190 
FDLO72060 
FDLO7210 
FDLO7220 
FDLO7 230 
FDLO7240 
FDLO7250 
FDLO7260 
FDLO7279 
FDLO7250 
FDLO7290 
FDLO730G 
FDLO7310 
FDLO7320 
FDLO7336 
FDLO7340 
FDLO7350 
FDLO7 360 
FDLO7370 
FDLO7 380 
FDLO7 390 
FDLO7400 
FDLO7410 
FDLO74&20 
FDLO7430 
FDLO7440 
FDLO7450 


_FDLO7460 


FDLO74&70 
FDLO7480 
FDLO7490 
FDLO75006 
FDLO7510 
FDLO7520 
FDLO 7530 
FDLO7546 
FDLO7550 


- FDLO7560 


FDLO7VETO 
FDLO7580 
FDLO759C 
FDLO7600 
FDLO7610 
FDLO7620 
FDLO7539 
FDLO7540 
FDLO7659 
FDLO7660 
FDLO7670 


=e 


* 
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OJAER 
O9BOR 
O9B4R 
O9B8R 
O9BAR 
O9BER 
O9C2R 
O9C6R 
O9C8R 
O9CCR 
O9CER 
O9DOR 
O9D4R 
O9DBR 
O9DCR 
O9EOR 
O9E2R 
O9F6R 
OS9EAR 
OSECR 
O9EER 
O9F2R 
O9F4R 
O9F8R 
O9FCR 
O9FER 
OAQOR 
JAD2e 
OAO4R 
DAQSR 
OAGAR 
OAOCR 
OASER 
OA19% 
OA125 
OA14R 
OA18R 
OA1CR 
OATER 
OA22R 
OA2ZBR 
JA28R 
QA2AR 
OA2CR 
OA30R 
OA32P 
OA 345 
OA36P 
OA38R 
OAZAR 
QA3Ce 
GAZEP 
DA4OR 
OA42R 
SAUG6R 


SA12 
C420 
C520 
2183 
CB20 
C520 
&380 
0822 
C820 


OO7F 
0060 


0020 
0023 
1B896R 
OOSF 
O9A8R 
OOE2R 
000D 
OASER 
0031 
OSA8R 
0012R 


0014R 
017BR 


0010R 


OASOR 
O17AR 


9013R 
0132R 


09108 


917BR 


FLOPPY DIAGNOSTIC LOADER/GENERATOR PASE 


768 WDR R1,R2 
769 NHI -R2,X°7F! 
770 CLHI k2,X"'60° 
771 BL MBI3 

772 SHI R2,X*20° 
773 §MBI3 CLHI 82,X*23° 
774 BFC 11,POUND 
775 LDAR &2,R2 

776 CLHI R2,X'SF 
777 BIC 11,HBIZ 
778 SIS  _R3,1 

779 B MBI1 

780 MBI2 STB R2,CONIN(R3) 
781 CLHI R2,X"0OD* 
782 BFC 11,SODOIT 
783 AIS 3,1 

784 CLHI 83,49 

785 BL MBI1 

786 LIS _R2,13 

787 B MBI2 

788 PASLAI LB R1,PASAD 
789 B COMIN 

790 «=TTYI LB R1,TTYAD 
791 oc R1,TTY+1 
792 COMIN LIS 23,0 

793 =IN4 SSR oR 1,R2 

794 BTBS 8,1 

795 RDR 31,2 

796 LR R4,DEVTYP 
737 SIS Ru, 

798 BZ PASECHO 
799 SIS 4,1 

800 BZ CLIECHO 
801 SIS 24,2 

B02 BZ PASECHO 
3203 B NOECHO 
B04 CLIECHO oc R1,TTY 
BOS B ECHOCOM 
806 PASECHO LB R1,PASAD+1 
807 oc R1,PASHR 
898 ECHOCOM SSR  R1,24 

809 BTBS 8,1 

310 WOR = R1,R2 

311 LB R4,DEVTYP 
812 SIS R4s1 

813 BZ PASREST 
814 SIS R4,1 

815 BZ CLIREST 
816 SIS R42 

817 BZ PASREST 
818 S NOECHO 
819 CLIREST SSR  R4,R4 

820 BTBS 8,1 

824 oc R1,TTY+1 
322 B NOECHO 


98:35:14 08/17/79 
ECHO DATA 

STRIP PARITY 
LOWER CASE CHECK 
SKIP 

MAKE UPPER CASE 
POUND SIGN 
RECYCLE 

RELOAD DATA 
DELETE 

NO 

DECREMENT INPUT COUNT 
CONTINUE 

STORE. DATA 

Cr 

EXECUTE 

INCRIMENT INPUT COUNT 
DONE 

NO 

ENTER C2 

APPEND CR 

LOAD ADDRESS 

SKIP 

LOAD ADDRESS 

SET READ MODE 
CLEAR R3 

SENSE STATUS 

BUSY LOOP 

READ DATA 

GET DEVICE TYPE 
DECREMENT 

PASLA 

DECREMENT 

CLI 

DECREMENT 

PASLA 

SKIP 

TURN LINE AROUND 
SKIP 

GET WRITE ADDRESS 
TURN LINE AROUND 
SENSE STATUS 

aAIT FOR BUSY NOT 
ECHO DATA 

GET DEVICE TYPE 
DECREMENT 

RESTORE READ ADDRESS 
DECREMENT 

TURN LINE AROUND 
DECREMENT 

RESTORE READ ADDRESS 
SKIP 

SENSE STATUS 

WAIT FOR BUSY NOT 
SET READ MODE 
SKIP 


FDLO7680 
FDLO7690 
FDLO7700 
FDLO7710 
FDLO7720 
FDLO7730 
FDLO7740 
FDLO7750 
FDLO7760 
FDLO7770 
FDLO7780 
FDLO7790 
FDLO7800 
FDLO7810 
FDLO7820 
FDLO7830 
FDLO7840 
FDLO7850 
FDLO7860 
FDLO7870 
FDLO7880 
FDLO7890 
FDLO7900 
FDLO7910 
FDLO7920 
£DLO7930 
FDLO7940 
FDL979590 
FDLO7960 
FDLO79706 
FDLO7980 
FDLO7990 
FDLO8000 
FDLO8010 
FDLO8020 
FDLO8030 
FDLOBO40 
FDLO8050 
FDLO2060 
FDLO8970 
FDLO8980 
FDLO8090 
FDLO8100 
FDLO8110 
FDLO8120 
FDL08130 
FDLO8 140 
FDLO8 150 
FDL08160 
FDLO8170 
FDLO8180 
FDLO08190 
FDLO8 200 
FDLO8210 
FDLO8220 


-~ 


FLOPPY DIAGHOSTIC 


823 
824 
825 
326 
827 


PASREST 


NOECHO 


COMIN1 


IN2 


GoODOIT 


CFFORA 


CFFORM1 


CHKPGM 


LOADER/GENERATOR 
LB R1,PASAD 
oc R1,PASRD 
NHI R2,X°7E° 
CLHI R2,x%*'60° 
BL COMINI 
SHI R2,X'20° 
CLHI R2,X'23° 
BFC 11,POUND 
CLHI R2,X°5F° 
BTC 11,I1N2 
SIS _R3,1 
BM COMIN 
B IN1 
STS -R2, CONIN(R3) 
CLHI R2,X'OD' 
BFC 11,GCDOIT 
AIS R3,1 
CLHI R3,70 
BTC 11,IN1 
LHI R2,X*°OD" 
BS IN2 
BAL RC,CLRDIS 
LB R2,CONIN 
CLHI 22,C'L' 
BFC 11,LIMITS 
CLHI R2,C'S' 
BFC 11, 3EQ 
CLHI R2,C'C’ 
BFC 11,CREATE 
CLHI R2,C'D* 
BFC 11,DUPE 
CLHI R2,C°F® 
BFC 11,FIND 
CLHI R2,C°I° 
BFC 11,INIT 
CLHI R2,C*U' 
BFC 11,UPDATE 
B QUEST 
LHI R1,X*'20° 
LIS 83,0 
LIS R4,1 
LHI R5,29° 
STB -R1,FFORM(R3) 
BXLE R3,CFFORM1 
BR RC 
STH R&,CSEQNUMO 
BAL RE,RDIRECT 
BAL RC,SULHS6 
BAL  RE,RDLRN 
LH R3,INBUF+14 
AAR =- R3, RA 
AIS R4,1 
LH R1,PRECMDO 
LIS  R2,1 
OAR  R1,R2 


68235214 08/17/79 


LOAD READ ADDRESS 
TURN LINE AROUND 
STRIP PARITY 
LOWER CASE CHECK 
SKIP 

MAKE UPPER CASE 
POUND SIGN 
RECYCLE 

DELETE 

NO 

DECREMENT COUNT 
RESET TO 0 
RE-START 

STORE DATA 

CR 

EXECUTE 
INCRIMENT COUNT 
DONE 

NO 

LOAD CR 

APPEND CR 

CLEAR DISPLAY 
LOAD FIRST CHARACTER 
L INPUT 

LIMITS 

S INPUT 

SEQUENCE 

C INPUT 

CREATE PROGKAM 

D INPUT 
DUPLICATE (COPY) 
F INPUT 

FIND PROGRAM 

I INPUT 
INITIALIZE MEDIA 
U INPUT 

UPDATE PROGRAM 
BAD INPUT 

LOAD BLANK 

SETUP 

BXLE 

LIMITS 

STORE 

LOOP 

RETURN 

SET CURRENT TO LAST 
READ DIRECTORY 
LOAD R5-86 

READ PDB 

LOAD ILRNS 


‘ADD TO START LRN 
INCRIMENT LRN TO PROGRAM 


LOAD PRE-CMD 
LOAD READ CMD BITS 
MERGE 


FDL08230 
FDLO8240 
FDLO8250 
FDLO8 260 
FDLO8270 
FDLO&280 
FDLO8290 
FDLO8 300 
FDLO8310 
FDLO8320 
FDLO08 330 
FDLO8 340 
FDLO8 350 
FDLO8 360 
FDLO8 370 
FDL08380 
FDLO8 390 
FDLO8400 
FDLO8410 
FDLO8420 
FDLO8430 
FDLO8440 
FDLO8450 
FDLO8460 
FDLO84&70 
FDLO8480 
FDLOR49G 
FDLO8500 
FDLO8510 
FDLO8520 
FDLO8530 
FDLO8540 
FDLO8 550 
FDLO8560 
FDLO8 570 
FDLO8580 
FDL08 590 
FDLO8600 
FDLO8610 
FDLO8620 
FDLO8630 
FDLO8640 
FDLO8650 
FDLO08660 
FDLO8670 
FDLO8680 
FDLO8690 
FDLO8700 
FDLO8710 
FDLO8720 
FDLO8730 
FDLO87480 
FDLO8750 
FDLO8760 
FDLO8770 


“= 


— 
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OBOBR 
OBOCR 
OBOER 
OB1OR 
OB12R 
OB14R 
OB18R 
OB1AR 
OBICR 
OB TEP 
OB20R 
OB22R 
OB24uR 
OB26R 
OB2AR 
OB2CR 
OB2ER 
OB30R 
OB34R 
OB38R 
OB3CR 
OB3ER 
OB42R 
OB46R 
OB4YER 
OBS2R 
0B56z 
C358R 
OBSAR 
OBSER 
OB6OR 
OB62R 
OB66R 
OB68R 
OB6AR 
OB6CR 
OB6ER 
OB7OR 
98722 
OB75F 
OB7AE 
OB7CR 
OBT7ER 
OB80r 
OB84UR 
OB86R 
OB88F 
OBSAR 
OB8CE 
OBSER 
O0B90R 
OB92K 
OB94R 
OB96R 
OB9BR 


D320 
9824 
9E21 
9D25 
2081 
C860 
9925 
2761 
2032 
9D25 
21£8 
0543 
21B4 
4150 
030F 
2641 
220F 
41D0 
D320 
C830 
2480 
4100 
4300 
5645 
5252 
D320 
9D21 
022D 
4818 
2427 
0612 
D320 
9E21 
2611 
9E21 
9D21 
2221 
030D 
D370 
DE10 
2309 


0017R 


0040 


18AAR 


18AAR 
1ADBR 
OB46R 


126AR 
1896R 
5249 4659 2045 
4F52 
0017R 


0170R 


00172 


00174R 
O17AR 


9D14 


2081 
DA13 
2631 
2721 
2036 
030C 
Z44D 
9B15 
2061 
9k 14 
24UHA 
9015 
2681 


0000 


878 
879 
880 


CP 14 


CP3 


CP2 


ERR27 


CHKERR 


RESET 


TTYO 


TTYO1 


TTYQ2 


FLOPPY DIAGNOSTIC LOADER/GENERATOR 


R2,FLPAD 
R2,R4 
R2,281 
R2,R5 
8,1 


-R5,64 


R2,R5 

R6,1 

CP3 
5,ERR27 
R4,R3 
11,CP2 
RD,STOP 

RF 

R4,1 

CP1 : 
RD,STOP 
R2,CHKERRS 
R3,CHKERR 
R8,0 
RD,FINDCON 
POUND 

C* VERIFY ERROR 


R2,FLPAD 
R2,R1 
22RD 
R1, PRECMDOC(RS8) 
R2,7 
1,R2 
R2,FLPAD 
R2,81 
R1,1 
R2,R1 
R2,R1 
2-1 
RD 
Ri,TTYAD 
R1,TTY 
TTYO2 
R1,24 
B,1 
R1,9(R3) 
R3,1 
R2,1 
TTYO1 
RC 
R4,13 
R1,85 
8,1 
R1,k4 
R4,10 
R1,R5 
8,1 


PAGE 


08:35:14 38/17/79 


LOAD ADDRESS 

4RITE LRN TO CONTROLLER 
COMMAND 
SENSE STATUS 

BUSY LOOP 

LOAD LRN LIMITS 

READ DATA 

DECREMENT COUNT 

LOOP 

SENSE STATUS 

NON-ZERO STATUS 
COMPLETE PROGRAM CHECKED 


READ NEXT LRN 
STOP 

LOAD SIZE 
LOAD ADDRESS 
SET OUTPUT 
PRINT 
RE-START 


LOAD ADDRESS 
SENSE STATUS 

EXIT IF IDLE 

LOAD PRE-COMMAND 
LOAD STOP CED 
MERGE COMMAND 
LOAD ADDRESS 
COMMAND 

CHANGE STOP TO KESET 
COMMAND 

SENSE STATUS 

IDLE NOT LOOP 
RETURN 

LOAD ADDRESS 

CMD OUTPUT 

SKIP 

SENSE STATUS 

BUSY LOOP 

a€RITE DATA 
INCRIMENT CHARACTER PCINTER 
DECREMENT COUNTER 
LOOP 

RETURN 

LOAD Cr 

SENSE STATUS 

BUSY LOOP 

ARITz# DATA 

LOAD LF 

SENSE STATUS 
BUSY LOOP 


FDLO8780 
FDLO8790 
FDLO8890 
FDL08810 
FDLO8820 
FDLO08830 
FDLO8840 
FDLO8850 
FDLO8860 
FDLO8870 
FDLO8880 
FDLO8&890 
FDL08900 
FDLO8910 
FDLO8920 
FDLO08930 
FDLO8940 
FDLO8950 
FDLO8960 
FDLO8970 
FDLO8980 
FDLO08990 
FDLO9000 
FDLO9010 


FDL09020 
FDL09030 
FDLO9O040 
FDLO9050 
FDL09060 
FDLO9070 
FDLO9G80 
FDL09090 
FDLO9100 
FDLO9110 
FDLO9120 
FDL09130 
FDLO9140 
FDL09150 
FDLO9160 
FDLO9170 
FDLO9180 
FDLO09190 
FDLO9200 
FDLO9210 
FDLO9220 
FDLO9230 
FDLO 9240 
FDLO9250 
FDL09260- 
FDLO$270 
FDLO3280 
FDLO9290 
FDLO9300 
FDL09310 


an. 
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OBSAR 
OBOCR 
OBAOR 
OBA2R 
OBASR 
OBASR 
OBAAR 
OBAER 
OBBOR 
OBB4R 
OBBE6R 
OBBAR 
OBBCR 
OBCOR 
OBC2R 
OBC4R 
OBC6R 
OBCSR 
OBCCR 
OBCER 
OBD2R 
OBD6R 
OBD8R 
OBDCR 
OBEOR 
OBE4R 
OBES8R 
OBECR 
OBEER 
OBF2R 
OBF4R 
OBFS8R 
OBFAR 
OBFCR 
OBFER 
OCO2R 
OCO6R 
OCO8R 
OCOCR 
OCOER 
0C12R 
0C16R 
OCTAR 
OC1ER 
O0C22R 
OC26P 
0C28R 


OC2CR 


OC2ER 
O0C32R 
OC36R 
OC3AR 
OC3ER 
OC4OR 
OC44p 


QA14 
ca4o 
9D15 
2081 
9A 14 
4360 
C510 
218A 
C510 
218A 
C510 
2184 
C510 
2183 
2511 
03¢0C 
2619 
C410 
2204 
4880 
4080 
2480 
41E0 
4530 
43B0 
4080 
41EO 
0833 
4230 
OBAA 
C5A0 
21B7 
OBES 
2135 
4050 
4300 
0855 
4330 
2752 
4050 
4845 
4040 
41C0 
41E0 
48 30 
2631 
4840 
OA43 
4040 
D370 
4837 
48 47 
OB34 
4280 
2631 


OOFF 


OB7CR 
0030 


003A 
0041 


0047 


OOOF 


0136R 
016CR 


1602R 
016CR 
OD78R 
016CR 
1502P 


ODICR 


001c 


017ER 
OC32R 


OD52R 


O17ER 
OO1AR 
0180R 
11E2R 
16D4R 
0028R 


01808 
0182R 
012CR 
O140R 
013CR 


OD2ER 


CONVERT 


BADIN 
OKIN 
ISAF 
ISNUS 


CREATE 


CR1 


CR3 


CR4 


R6,SEQNUN 
R8,CSEQNUMO 
R8,0 
RE,RDIRECT 
R3,-CSEQNU MNO 
11,THERE 
R8,-CSEQNUMO 
RE,xDIRECT 
R3,R3 


R5,LPDB 
CR4 

R5,R5 

CR2 

R5,2 
RS,LPDB 
R4&, INBUF( RS) 
R4&,NSLRN 
RC,SULH56 
RE,-RDLRN 
R3,INBUF+14 
R3,1 
R4&,NSLRN 
R4,R3 
R4,NSLRNA 
R7,FLG16 
R3,HIGH(R7) 
R4,LOWCR7) 
R3,R4 
8,CR9 

R3,1 


i) 
td 


4a 
a) 


08335374 08/17/73 


WRITE DATA 


" LOAD NULL 


SENSE STATUS 
BUSY LOOP 


~ WRITE DATA 


SKIP 
NUMBER OK 


OR ALPHA 

IT'S A NUMBE (0-9) 

BAD INPUT 

YES 

ALPHA OK 

YES 

LOAD NEGATIVE NUMBER 
RETURN 

CORRECT 

STRIP UPPER 

EXIT 

LOAD SEQNUM TO BE ADDED 
MAKE CURRENT 

LOAD OUTPUT FLAG 

READ DIRECTORY 

WAS IT THERE? 

YES, ERROR 

SET EOV=CURRENT 

FIND FOV 

LOAD RETURN SEQUENCE NUMBER 
EOY NOT RETURNED 

LOAD DIRECTORY LRN INDICATOR 
FIRST aaa 

NO 

LOAD BIB POINTER 

NOT FIRST ENTRY 

SAVE LAST 

NO ENTRIES 

LOAD BIB 

FIRST ENTRY 

FIND PREVIOUS PDB POINTER 
SAVE POINTER 

LOAD PDB LRN POINTER 
SAVE POINTER 

LOAD R5-R6 

READ PDB 

LOAD ILRBNS 

CORRECT TO INCLUDE PDB 
LOAD LRN POINTER 

ADD IN # OF LRNS NEEDED 
LOAD START 

LOAD 16 BIT FLAG 

LOAD HIGH 


“LOAD LOW 


DIFFERENCE 
LOW > HIGH 
MAKE BYTE COUNT CORRECT 


FDLO09320 
FDL09330 
FDLO9340 
FDLO9350 
FDLO9360 
FDLO9370 
FDLO9380 
FDLO9390 
FDLO9400 
FDLO9410 
FDLO9420 
FDLO9430 
FDLO9440 
FDLO9450 
FDLO9460 
FDLO9470 
FDLO9480 
FDLO9490 
FDLO09500 
FDLO9510 
FDLO9520 
PDLO09530 
FDLO9540 
FDLO9550 
FDILO09560 
FDLO9570 
FDLO9580 
FDLO9590 
FDLO09600 
FDL09610 
FDLO09620 
FDL09630 
FDLO9640 
FDLO9650 
FDLO9660 
FDLO09670 
FDL09680 
FDLO9690 
FDLO9700 
FDLO9710 
FDLO9720 
FDLO9730 
FDLO09740 
FDLO9750 
FDLO9760 
FDLO09770 
FDLO9780 
FDLO09790 
FDLO9800 
FDLO9810 
FDLO9820 
FDLO98 30 
FDLO9840 
FDLO9850 
FDLO9860 


3 


“~ 
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OC4ER 
OC4AR 
OC4CR 
OCUER 


41C0 
0822 
2332 
2631 
4030 
4B40 
4850 
2651 
OAS 
HBEO 
4220 
O84A 
4&1C0 
41EOQ 
4850 
4330 
2652 
C550 
4280 
O8AA 
C540 
4330 


1024R 


O144R 
0182R 
01744R 


O17CR 
ODOR 


11E2R 
16D4R 
O17ER 
OC9ER 


OO7E 
OCA2R 


001F 
11ECR 


11E2R 
16D4R 


OO1F 


0182R 
OO1AR 
0136R 


OO1AR 


OO1AR 


OOTAR 
11ECR 


) OCACR 


01742 
0182R 
01368 
0165R 


18CER 
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987 
988 
989 


CR41- 


CRI1A 
CRH2 
CR11 


CR77 


CR69 
CR5 


CRPGH 


RC,D128 
R2,R2 

CR41 

R3,1 
R3,LRNS 
R4,NSLRNA 
R5,LRNS 
R5,1 

R5,R4 
R5S,NAXLRNO 
CR91 

R4,RA 
RC,SULH56 
RE,RDLRN 
R5,LPDB 
CRI1A 

R542 
R5,126 
8,CR4E2 
RA,RA 
RA,ENDDIR 
EOD 

R4,RA 

R4,1 

RC, SULH56 
RE,RDLRN 
R5,2 

C211 

R5,2 

CR11 

R5,2 

R4,RA 

RH, ZNDDIR 
11,CR5 
R4,NSLRNA 
R4,INBUFCRS) 
R4,S5EQNUM 
R5,2 
R4,INBUFC(RS) 
R5,4 

R4,0 
R4,INBUFCRS) 
CRPGN 

R5,4 

R44, INBUFCR5) 
EOD 

R5,4 

CR77 

RA,RA 
RA,DIRP 
R4,NSLRNA 
R5,SEQNUM 
R6,SEQNUM+47 
R8,0 

RE, aARLRN 


08:35:14 08/17/79 
DIVIDE 

LOAD REMAINDER 

NO REMAINDER 

ADD EXTRA FOR OVERFLOW 
STORE TO LRN SIZE 

LOAD START 

LOAD SIZE NEEDED 
INCLUDE PDB 


LOAD DIRECTORY POINTER 
LOAD R5-R6 

RE-READ DIRECTORY BLOCK 
LOAD LAST PDB POINTER 
OK 

CORRECT POINTER 

NEXT ENTRY FIT 

OK 

LOAD DIRECTORY LRN PCINTER 
LAST LRN aaa 

FULL 

LOAD DIRECTORY LRN POINTER 
INCRIMEN? 

LOAD R5-86 

READ NEXT DIRECTORY LRN 
LOAD POINTER 

SKIP 

INCRIMENT POINTER 

SKIP 

INCRIMENT TO NEXT PDB ENTRY 
LOAD DIRECTORY LRN 
MAXIMUM LRN O25 
SOV/EOD CHECK 

LOAD NEXT START LRN 
STORE NEW POINTER 

LOAD SEQUENCE # 
DECREMENT POINTER 

STORE SEQUENCE # 
INCRIMENT TO NEXT ENTRY 
CLEAR R4 

STORE EOV IN DIRECTORY 
CREATE PROGRAM 
INCRIMENT TO NEXT ENTRY 
LOAD NEXT SEQUENCE # 
EOD REACHED 

RESTORE 

SKIP 

LOAD BLOCK POINTER 

SAVE 

LOAD NEXT START LEN 
LOAD LOW 

LOAD HIGH 

SET OUTPUT 

WRITE PD3 


FDLO9870 
FDLO9880 
FDLO9890 
FDLO9900 
FDL09910 
FDLO9920 
FDLO9930 
FDLO9940 
FDLO9950 
FDLO9960 
FDLO9970 
FDLO9980 
FDLO9990 
FDL10000 
FDL10010 
FDL10020 
FDL10030 
FDL10040 
FDL10050 
FDL10060 
FDL10070 
FDL10080 
FDL10090 
FDL10100 
FDL10110 
FDL10120 
FDL10130 
FDL10149 
FDL10150 
FDL10160 
FDL10170 
FDL10180 
FDL10190 
FDL10200 
FDL10210 
FDL10220 
FDL10230 
FDL10240 
FDL10250 
FDL10260 
FDL10270 
FDL10280 
FDL10290 
FDL10300 
FDL10310 
FDL10320 
FDL10330 
FDL10340 
FDL10350 
FDL190360 
FDL10370 
FDL10 380 
FDL10390 
FDL10400 
FDL104810 


”~ 
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OCFOR 
OCF 2k 


-OQCF6R 


OCFAR 
OCFER 
ODOOR 
OLO4R 
ODO8R 
ODOCR 
OD10R 
OD14R 
OD18R 
ODICR 
OD20R 
OD24R 
OD26kK 
OD2AR 
OD2ER 
OD32R 
0D36R 
OD38R 
OD3CR 
OD4OR 
OD4&4eR 
OD4SR 
OD4AR 
OD4ER 
OD52R 
ODS54R 
ODS8P 
ODSAR 
ODSER 
0D62R 
OD66R 
OD6AR 
OD6ER 
OD72R 
OD74R 
OD78R 
OD7CR 
OD8OR 
OD8&2R 
ODB6R 
OD8AR 
OD92R 
OD9AR 
ODA2R 
ODAAR 
ODBOR 
ODB2R 
ODB6R 
ODB8R 
ODBCR 
ODCOR 
ODC2R 


2641 
D370 
4857 
4867 
2486 
4#1E0 
4840 
41CO 
41EO 
4840 
41F0 
4300 
D320 
c830 
2480 
41D0 
4300 
D320 
C830 
2480 
414L0 
4300 
D320 
C830 
2480 
4150 
4300 
27A1 
4050 
OS 4A 
41C0 
41E0 
4BUO 
4040 
#100 
41E0 
2641 
4300 
D320 
C8 30 
2480 
41D0 
4300 
5345 
204E 
asses 
4uE20 
204D 
2420 
41CO 
2721 
D352 
C5£0 
23BD 
2622 


012CR 
013CR 
O140R 


18CER 
0174R 
T1E2R 
18CER 
0136R 
OAES8R 
11FER 
TADDR 
1966R 


126AR 
1896R 
TADER 
1974R 


126AR 
1896R 
TADFR 
1984R 


126AR 
1896R 


017ER 


T1E2R 
16D4R 
0098R 
0180R 
11E2R 
16D4R 


OC22R 
1ADCR 
OD8AR 


126AR 

1896R 

5155 4S4E 
554D 4245 
4953 5453 
4F55 5450 
4544 4941 


1806R 


OOE2R 
000D 
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4345 
5220 
204F 
5554 


1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 


1086 
1087 
1088 
1089 
1090 
1091 
1092 


Cr& 


CR9 


CR91 


CR2 


THERE 


GOTHSG 


DUPE 


AIS 


R4,1 


- R7,FLS 16 


R5,LOW#(R7) 
R6,HIGH(R7) 
R8,0 

RE, WRLRN 
R4,DIRP 
RC,SULH56 
RE, dRLRN 
R4,SEQNUM 
RF,CHKPGM 
EOJ 
R2,FOVRTNMS 
R3,E0VRTNM 
R8,0 

RD, FINDCON 
POUND 
R2,LGHMSGS 
R3,LGHMSG 
RB,0 

RD, FINDCON 
POUND 
R2,TBIGMSGS 
R3,TBIGESG 
R8,0 

RD, FINDCON 
POUND 

RA,1 
R5,LPDB 
R4,RA 

RC, SULH56 
RE,RDLRN 
R4, INBUF+ 126 
R4,NSLRN 
RC, SULHS6 
RE,RDLRN 
RA, 1 

CR3 
R2,GOTMSGS 
R3,GOTMSG 
R8,0 
RD,FINDCON 
POUND 


08:35:14 O8f17/79 


INCRIMENT TO PROGRAM START LRN 
LOAD 16 BIT FLAG 
LOAD LOW 

LOAD HIGH 

SET OUTPUT FLAG 
WRITE PROGRAM 

LOAD DIRECTORY POINTER 
LOAD R5-86 

WRITE DIRECTORY 
LOAD FOR VALIDATION 
VALIDATE PROGRAM 
PRINT EOQJ 

LOAD SIZE 

LOAD ADDRESS 

SET OUTPOT. 

PRINT 

RE~START 

LOAD SIZE 

LOAD ADDRESS 

SET OUTPUT 

PRINT 

RE-START 

LOAD SIZE 

LOAD ADDRESS 

SET OUTPUT 

PRINT 

RE-START 

DECREMENT 

SAVE 

LOAD CORRECTED LRN 
LOAD R5-R6 

READ PREVIOUS LRN 
LOAD PREVIOUS PDBP 
SAVE 

LOAD R5-R86 

READ PDB 

INCRIMENT 

CONTINUE 

LOAD SIZE 

LOAD ADDRESS 

SET OUTPUT FLAG 
PRINT 

RE-START 


C*SEQUENCE NUMBER EXISTS ON OUTPUT MEDIA’ 


R20 
RC,SPCOM 
R2,1 
R5,CONIN(R2) 
R5,X'OD' 
11,D1 

R2,2 


LOAD CHARACTER POINTER 
FIND DELIMITER 
DECREMENT TO NEXT START 
LOAD 1ST CHARACTER 

CR 

DUPE TO EOYV 

CORRECT POINTER 


FDL10420 
FDL10430 
FDL10440 
FDL10450 
FDL10460 
FDL10470 
FDL10480 
FDL10490 
FDL10500 
FDL10510 
FDL10520 
FDL10530 
FDL10540 
FDL10550 
FDL10560 
FDL10570 
FDL10580 
FDL10590 
FDL10600 
FDL10610 
FDL10620 
FDL10630 
FDL10640 
FDL10650 
FDL10660 
FDL10670 
FDL104680 
FDL 10690 
FDL10700 
FDL10710 
FDL10720 
FDL10730 
FDL10740 
FDL10750 
FDL10760 
FDL10770 
FDL10780 
FDL10790 
FDL10800 
FDL10810 
FDL10820 
FDL10830 
FDL10840 
FDL10850 


FDL10860 
FDL10870 
FDL10880 
FDL10890 
FDL10900 
FDL10910 
FDL10920 


nm 


56-225FOIM9I6R01A13 


41E0 
4050 
905C 
4230 
2480 
41EO 
2303 
2450 
220A 
2482 
41E0 
0833 
4330 
4050 
4030 
4040 
41D0 
9433 
9813 
4100 
C550 
21BE 
O84A 
2641 
41C0 
KTEO 
4860 
48 40 
2306 
2654 
220F 
2654 
4865 
C560 
22B7 
4060 
41C0 
4TEO 
2470 
D270 
4870 
4070 
4870 
4230 
2480 
4870 
4070 
4150 
4530 
43B0 
0833 
4230 
osss 
2337 
&B4S 


153AR 


0184R 
15FOR 


12E0R 


1602R 


11FER 
0186R 
0168R 
O16AR 
01B4UR 


O1BER 
007C 


11E2R 
16D4R 
OO1AR 
O16AR 


OOTAR 
7000 


01668 
11E2R 
16D4R 


O12ER 
0028R 
0188K 
OO24R 
OFDSR 


0168R 
016CR 
1602R 
0168R 
OD7BR 


OD1CR 


0018R 
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1093 
1094 
1095 
1996 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1705 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
4117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
4137 
1138 
1139 
1740 
1141 
1142 
1143 
1744 
1145 
1746 
1147 


DIA 


D1 


D2 


D21 


D20 
D3 


D4 


D5 


BAL 
STH 
SRLS 


RE,PACK 
R5,TERMSEQ 
R5,12 
QUEST. 
R8,0 

RE, FMAXLRN 


R8,2 

RE,R DIRECT 
R3,83 

EOJ 
R5,CSPI 
R3,CSNI 
R4,CSNPDBP 
RD,SINC 
R3,R3 
R1,23 
RD,SNOR 
R5,124 
41,53 
R4,RA 

R4,1 

RC -SULH56 
RE,RDLRN 
R6,INBUF 
R4,CSNPDBP 


R5,4 
R6,INBUF(RS) 
R6,.X°7000" 
11,D20 
R6,NEXTI 
RC,SULH56 
RE,RDLRN 
R7,0 
R7,8ANGE 
R7,INBUF+HITG 
R7,SIZETI 
R7,INBUF+10 
CHK16 

R8,90 
R7,CSNI 
R7,CSEQNUMO 
RE,RDIRECT 
R3,CSNI 
11,THERE 
R3,23 


PAGE 


R4,INBUF-2(R5) 


21 


O3:35:14 98/17/79 
PACK DATA 

STORE TERMINATION SEQUENCE # 
SCALE 

ERROR 

SET QUTPUT FLAG 

FIND CAPACITY 

SKIP 

LOAD EOV 

STORE 

SET INPUT 

READ DIRECTORY 

SET CC 

EOV FOUND 

SAVE SEQUENCE POINTER 
SAVE SEQUENCE NUMBER 
SAVE PDB POINTER 

SET INCRIMENTAL MODE 
SWAP FOR DISPLAY 


WRITE SEQUENCE NUMBER TO DISPLAY 


SET NORMAL MODE 

LAST ENTRY IN BLOCK 

NO 

LOAD BLOCK POINTER 
INCRIMENT TO NEXT 

LOAD R5-R6 

READ NEXT BLOCK 

LOAD NEXT SEQUENCE NUMBER 
LOAD POINTER 

SKIP 

INCRIMENT POINTER 

CHECK IF NEW BLOCK NEEDED 
INCRIMENT TO NEXT ENTRY 
LOAD NEXT SEQUENCE NUMBER 
DELETE CHARACTER? 

YES 

SAVE 

LOAD R5-R6 

READ PDB 

CLEAR 

CLEAR FLAG 

LOAD SIZE 

SAVE 

LOAD MSD OF HIGH 

>64KB. 

SET OUTPUT 

LOAD CURRENT SEQUENCE NUMBER 
SET=CURRENT 

READ DIRECTORY 

FOUND 

DUPLICATE EXISTS 

SET CC 

EOV NOT FOUND 

SET CC 

SKIP 

LOAD PREVIONS PDBP 


FDL10930 
FDL10940 
FDL10950 
FDL10960 
FDL10970 
FDL10980 
FDL10990 
FDL11000 
FDL11010 
FDL11020 
FDL11030 
FDL11040 
FDL11050 
FDL11060 
FDL11070 
FDL11080 
FDL11090 
FDL11100 
FDL11110 
FDL11120 
FDL11130 
FDL111480 
FDL11150 
FDL111690 
FDL11170 
FDL11180 
FDL11190 
FDL11200 
FDL11210 
FDL11220 
FDL11230 
FDL11240 
FDL11250 
FDL11260 
FDL11270 
FDL11280 
FDL11290 
FDL11300 
FDL11310 
FDL11320 
FDL11330 
FDL11340 
FDL11350 
FDL11360 
FDL11370 
FDL11380 
FDL11390 
FDL11400 
FDL11410 
FDL11420 
FDL11430 
FDL11440 
FDL11456 
FDL11460 
FDL11470 


LS AE LS LL TPE 


ms, 
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OE74R 
OE78R 
OE7CR 
OE80R 
OEB4R 
OE86R 
OES8R 
OE8CR 
OEQOR 
OEQ4R 
OEQSR 
OESCR 
OEAOR 
OEA2R 
OEA&R 
OEA8R 
OEAAR 
OEACR 
OEBOR 
OEBSR 
OEBBR 
OEBCR 
OECOR 
OEC4R 
OEC8R 
OECCR 
OECER 
OED2R 
OEDE6R 
OEDAR 
OEDCR 
OEEOR 
OEE4R 
OEE8R 
OEECR 
OEFOR 
OEF4R 
OEF6R 
OEFS8R 
OEFCR 
OFOOR 
OFOUR 
OFO8R 
OFOCR 
OFOER 
OF 12R 
OF 14R 
OF18R 
OF1CR 
OF 1ER 
OF20R 
OF24R 
OF 28R 
OF2AR 
OF 2EP 


41C0 
4300 
C5A0 
4380 
OB4A 
2741 
41C0 
4150 
4840 
41C0 
41E0 
4850 
OAS4 
2651 
4050 
2482 
2651 
4A50 
4550 
430 
4390 
4840 
41C0 
41E0 
4840 
2480 
41C0 
41E0 
D370 
0877 
4230 
4840 
D370 
4857 
4867 
C550 
2184 
238C 
4300 
CA60 
C560 
4380 
CB60 
2306 
c550 
2383 
4300 
D370 
0877 
2136 
C5£0 
4280 
2305 
C550 
4280 


11E2R 
OESBR 
001C 

OFDOR 


11E28 
16D4R 
O098R 
11E2R 
T6D4R 
0028R 


018CR 


0188R 
017CR 
OD4OR 
OD4OR 
O16AR 
VIE2R 
16D4R 
018CR 


TIE2R 
18CER 
012ER 


OFECR 
OT6AR 
012CR 
0020R 
0024R 
O000R 


OFECR 
0080 
O000R 
OFECR 
0080 


1AEBR 
OFECR 
012CR 
OA00 

OFECR 


02D0 
OFECR 


D6 


D8 


Dg 


CHKHLS1 


CHKLGE1 


D1BA 


D183 


RC,SULHS6 
D8 
RA,STDIR 
11,D7 
R4a,RA 

R4,1 

RC, SULH56 
RE,RDLRN 
Ru, INBUF+126 
RC,SULH56 
RE,RDLRN 
R5,INSUF+14 
R5,R4 

RS,1 
R5,NCPDBP 
R8,2 

R5,1 
R5,SIZEI 
R5,MAXLRNO 
10,CR91 
9,C291 
R4,CSNPDBP 
RC,SULH56 
RE,RDLRN 
R4,NCPDBP 
R8,9 
RC-SULH56 
RE, WRLRN 
R7,RANGE 
R7,R7 

D13 
R4,CSNPDBP 
R7,-FLG16 
R5,INBUF+6(R7) 
R6,INBUF+10(R7) 
R5,STARTL 
CHKHLS1 
CHKLGE1 
D13 

R6,128 
R6,STARTL 
D13 

R6,128 
DI8A 
R5,LNZB 
D18A 

B13 
R7,FLG16 
R7,R7 

D188 
R5,X°AOO° 
D13 

D18 
R5,X*2D0° 
B13 


ao sen 


O8:35:74 G8/T7/79 
LOAD R5-R6 
SKIP 


FIRST BLOCK? Bada 
YES 

LOAD BLOCK POINTER 
DECREMENT 

LOAD R5-R86 


READ PREVIOUS DIRECTORY 8LOCK 


LOAD PDBP 

LOAD R5-86 

READ PDB 

LOAD SIZE 

ADD LAST PROGRAM SIZE 
IRCLUDE PDB 

SAVE 

SET INPUT 

INCLUDE PDB 

ADD NEW PROGRAM SIZE 
FIT 

TOO BIG 

TOO BIG 

LOAD POINTER 

LOAD R5-R6 

RE-READ PDB 

LOAD POINTER 

SET OUTPUT 

LOAD R5-R6 

WRITE PDB 

LOAD FLAG 

SET CC 

SPECIAL DUPLICATE 
LOAD POINTER 

LOAD FLAG 

LOAD LOW 

LOAD HIGH 

COMPARE LOW TO START 
CHECK H<S 

CHECK LOE 

SPECIAL DUPLICATE 
ADD MAX EXTRA SIZE 
COMPARE HIGH TO START 
SPECIAL DUPLICATE 
RESTORE 

OK 

COMPARE LOW TO END 
OK 

SPECIAL DUPLICATE 
LOAD FLAG 

SET CC 

16 BIT CPU 

BLACK HOLE POSSIBLE? 
SPECIAL DUPLICATE 
SKIP 

LOW CORE? 

SPECIAL DUPLICATE 


FDL11480 
FDL11490 
FDL11500 
FDL11510 
FDL11520 
FDL11530 
FDL11540 
FDL11550 
FDL11560 
FDL11570 
FDL11580 
FDL11590 
FDL11600 
FDL11610 
FDL11620 
FDL11530 
FDL11640 
FDL11650 
FDL11660 
FDL11670 
FDL11680 
FDL11690 
FDL11700 
FDL11710 
FDL11720 
FDL11730 
FDL11740 
FDL11750 
FDL11760 
FDL11770 
FDL11780 
FDL11790 
FDL11800 
FDL11810 
FDL11820 
FDL11830 
FDL11840 
FDL11850 
FDL11860 
FDL11870 
FDL11880 
FDL11890 
FDL11900 
FDL11910 
FDL11920 
FDL11930 
FDL11940 
FDL11950 
FDL11960 
FDL11970 
FDL11980 
FDL11990 
FDL12000 
FDL12010 
FDL12020 


om 
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OF32R 
OF34R 
OF36R 
OF3AR 
OF3ZER 
OFUOR 
OF42R 
OF46R 
OF4AP 
OF4ER 
OFS2R 
OF56R 
OF5AR 
OFSER 
OF62R 
OF66R 
OF6 AR 
OF6CR 
OF6ER 
OF72R 
OF76R 
OF78R 
OFT7CR 
OF8OPR 
OFB2R 
OF86R 
OF8AR 
OFS SR 
OF92R 
OF94R 
OF98R 
OFOCR 
OFSER 
OFA2K 
OFA6R 
OFAAR 
OFAER 
OFB2R 
OFB6R 
OF BBR 
OFBCR 
OFCOR 
OFC4R 
OFC8R 
OFCCR 
OFDOR 
OFD4R 
OFD8R 
OFDCR 
OFDER 
OFE2R 
OFE4R 
OFESR 
OFECP 
OFEER 


2641 
2882 
4150 


-4840 


2641 
2480 
b370 
4857 
4867 
KTEO 
41EO 
4860 
4065 
4860 
4065 
C550 
2328 
246E0 
4Q65 
4065 
OB4A 
41C0O 
4300 
O8 4A 
c540 
43B0 
41C0 
41EQ 
2641 
41C0 
4150 
2479 
4070 
4070 
&1C0 


16D4R 
018CR 


012CR 
0020R 
0024R 
18CER 
1602R 
0168R 
OO1TAR 
018CR 
OOTCR 
007C 


OO1ER 
0020R 


11E2R 
OFAAR 


0O01F 

194CR 
T1E2R 
T8CER 


11E2R 
16D4R 


OO1AR 
001CR 
TIE2R 
18CER 
O16ER 
OAESR 


0184R 
C16ER 
11FER 
0166R 
O16ER 
ODDER 
0020 

OEA4R 
012CR 


OESOR 


O12ER 
OE5OR 


QI6AR 
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4203 
1204 
1205 
1206 
1207 
1208 
1299 
1210 
41211 
1212 
1213 
1214 
1215 
1216 
4217 
1218 
1219 
1220 


1221. 


1222 
1223 
1224 
1225 
1226 
4227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 


D18 


D10 


D11 


D1i2 


D7 


CHK16 


D13 


R4,1 

RB,2 
RE,RDLRN 
R4,NCPDBP 


R7,FLG16 


R5,INBUF+6(R7) 
R6,INBUF+H19 (R87) 


RE,WRLRN 
RE,RDIRECT 
R6,CSNI 
R6,INBUFCRS) 
R6,NCPDBP 


R6,INBUF+2(R5) 


R5,124 
411,011 
R6,0 


R6,INBUF+&(R5) 
R6,INBUF+6(R5) 


R4,RA 
RC,SULH56 
D112 

R4,RA 
R4,ENDDIR 
11,HRLRN3 
RC,SULH56 
RE,WRLRN 
R4,1 
RC,SULH56 
RE,RDLRN 
R7,0 

R7, INBUF 
R7,INBUF+2 
RC,SULH56 
RE,WRLRN 
R4&,CSEQNUNI 
RF,CHKPGM 
R8,2 
R5,TERMSEQ 
R5,CSEQNUMI 
11,203 
R5,NEXTI 
R5,CSEQNUMI 
D2 
R5,STSAV 
D9 
R7,FLG16 
R7,27 

D5 

R7,15 
R7,RANGE 
D5 

RB,1 
RA,CSNPDBP 
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INCRIMENT PAST PDB 
SET INPUT 

READ PROGRAM 

LOAD POINTER 
INCRIMENT PAST PDB 
SET OUTPUT 

LOAD FLAG 

LOAD LOW 

LOAD HIGH 

WRITE PROGRAM 

READ DIRECTORY 
LOAD SEQUENCE NUMBER 
STORE 

LOAD PDB POINTER 


STORE 

FIT EOV? 

NO 

LOAD EOY¥ 

STORE EOYV 

STORE EOV 

LOAD BLOCK POINTER 
LOAD R5-R6 

SKIP 


LOAD BLOCK POINTER 
MAXIMUM? aaa 
YES, ERROR 

LOAD R5-R6 
RESTORE LAST 


INCRIAENT TO NEXT BLOCK 


LOAD R5-R6 

READ NEXT BLOCK 
LOAD EOY 

STORE 

STORE 

LOAD R5-R6 

WRITE DIRECTORY 
LOAD FOR VALIDATION 
VERIFY 

SET INPUT 

LOAD TERMINATION 
DONE 

YES 

LOAD NEXT 

SETUP TO COPY NEXT 
LOOP 

LOAD NEXT LRN daa 
CONTINUE 

LOAD FLAG 

SET cc 

RETURN 

SET 

SET FLAG 

RETURN 

SET LIOP COUNT 
LOAD POINTER 


FDL12030 
FDL12040 
FDL129050 
FDL12060 
FDL12070 
FDL12080 
FDL12090 
FDL12100 
FDL12110 
FDL12120 
FDL12130 
FDL121406 
FDL12150 
FDL12160 
FDL12170 
FDL12180 
FDL12190 
FDL12200 
FDL12210 
FDL12220 
FDL12230 
FDL12240 
FDL12250 
FDL12260 
FDL42270 
FDL12280 
FDL12290 
FDL12300 
FDL12310 
FDL12320 
FDL12330 
FDL12340 
FDL12350 
FDL12360 
FDL12370 
FDL12380 
FDL12390 
FDL12400 
FDL12410 
FDL12420 
FDL12430 
FDL12440 
FDL12450 
FDL12460 
FDL12470 
FDL12686 
FDL12490 
FDL72500 
FDL12510 
FDL12520 
FDL12530 


FDL12540 


FDL12550 
FDL12560 
FDL12570 
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OFF2R 
OFFS5R 
OFFaR 
OFFAR 
OFFCR 
1000R 
1002R 
1006P 
1008P 
1O0AR 
100ER 
1012R 
10162 
101AB 
101CR 
101ER 
10208 
1024R 
1026R 
102AR 
102CR 
102ER 
1030R 
1034R 
1036? 
103AP 
103C2 
1080R 
1042R 
10462 
104AR 
104CR 
1050R 
1054R 
1058R 
105CR 
105ER 
1062R 
10668 
1068R 
106CR 
406ER 
1072 
10762 
TO7AR 
107C8 
107ER 
10822 
1086R 
108AR 
108 EP 
1092R 
1096R 
10985 
1O9AR 


4890 
26A1 
2691 
2482 
41c0 
OB84A 
4150 
2480 
0849 
41C0 
41E0 
4520 
43E0 
26B1 
26A1 
2691 
4300 
0823 
C420 
9037 
030C 
2420 
41C0 
2621 
41E0 
0855 
4330 
2480 
4050 
4050 
9Q5C 
4230 
K1EO 
4530 
4&2B0 
2450 
4050 
41E0 
0833 
4230 
0855 
4050 
4OAO 
4230 
O84A 
2741 
41C0 
41EO 
4840 
4040 
41C0 
KTEO 
230A 
2752 
4845 


018CR 


T1E2R 


16D4uR 


11E2R 
18CER 
0188R 
OF52R 


OFFAR 


OO7F 


1806R 
IS3AR 
1SFOR 


O18ER 
016CR 


15FOR 
1602R 
O16CR 
15FOR 


016CR 
1602R 


ODICR 


0168R 
0180R 
7O98R 


11E2R 
16D4R 
0098R 
O18AR 
T1E2R 
T6D4R 


OOTAR 


FLOPPY DIAGNOSTIC 


1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
4277 
1278 
1279 
1280 
12814 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
4302 
1303 
1304 
4305 
1306 
1307 
1308 
1309 
4310 
1311 
1312 


Di4 


D128 


UPDATE 


U4 


LOADER/GENERATOR 
LH R9,NCPDBP 
AIS RA,1 
AIS R9,1 
LIS R8,2 
BAL RC,SULH56 
LDAR R4,RA 
BAL RE,-RDLRN 
LIS R8,90 
LDAR R4&,R9 
BAL RC,SULH56 
BAL RE, WRLRN 
CLH RB,SIZEI 
BFC 11,010 
ATS RB,1 
AIS RA, 1 
AIS R9,1 
B D1u 
LDAR R2,83 
NHI R2,X°7F* 
SRLS R3,7 
BR RC 
LIS R2,0 
BAL RC,SPCOM 
AIS R2,1 
BAL RE,PACK 
LDAR R5,R5 
BZ QUEST 
LIS R8,0 
STH R5,TEMSAY 
STH R5,CSEQNU NO 
SRLS &5,12 
BNZ QUEST 
BAL RE,RDIRECT 
CLH R3,CSEQNUMO 
BTC 11,QUEST 
LIS R5,0 
STH R5,CSEQNUMO 
BAL RE,RDIRECT 
LDAR R3,R83 
BNZ CRB 
LDAR &5,R5 
STH R5,CSNI 
STH RA,NSLRN 
BNZ U1 
LDAR R4&,RA 
SIS R44, 1 
BAL RC,SULH56 
BAL RE,RDLRN 
LH R4&, INBUF+126 
STH R4&,IPDBP 
BAL RC, SULH56 
BAL RE,RDLRN 
B U2 
SIS R5,2 
LH Ru, INBUFCR5) 


a 
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LOAD POINTER 
INCRIMENT PAST PDB 
INCRIMENT PAST PDB 
SET INPJT 

LOAD R5-26 

LOAD ILRN 

READ 1 PROGRAM LRN 
SET OUTPUT 

LOAD OLRW 

LOAD R5-R6 

WRITE 1 PROGRAM LRN 
DONE? 

YES : 

INCRIMENT 
INCRIMENT 
INCRIMENT 

LOOP 

LOAD 

SAVE REMAINDER 
DIVIDE BY SHIFTING 
RETURN 

LOAD CHARACTER POINTER 
FIND DELIMITER 
INCRIMENT TO NEXT FIELD 
PACK DATA 

SET CC 

NO OPERATION 

SET OUTPOT 

SAVE 

SET CURRENT 

SCALE 

ERROR 

CHECK IF EXISTS 
FOUND? 

NO 

LOAD EOV 

SET EQV=CURRENT 
FIND EOV 

SET CC 

EOQ¥Y NOT FOUND 

SET CC 

SAVE POINTER 

SAVE POINTER 

NOT FIRST ENTRY 
LOAD BLOCK POINTER 
DECREMENT TO PREVIOUS 
LOAD R5-R6 

READ PREVIQUS 

LOAD PDBP 


LOAD R5-R6 
READ PDB 


FIND PREVIGUS PDBP 
LOAD PDBP 


FDL12580 
FDL12590 
FDL12600 
FDL12610 
FDL12620 
FDL12630 
FDL12640 
FDL12650 
FDL12660 
FDL12670 
FDL12680 
FDL12690 
FDL12700 
FDL12710 
FDL12720 
FDL12730 
FDL12740 
FDL12750 
FDL12760 
FDL12770 
FDL12780 
FDL12790 
FDL12800 
FDL12810 
FDL12820 
FDL12830 
FDL12440 
FDL12850 
FDL12860 
FDL12870 
FDL12880 
FDL12890 
FDL12900 
FDL12910 
FDL12920 
FDL12930 
FDL12940 
FDL12950 
FDL12960 
FDL12970 
FDL12980 
FDL12990 
FDL13000 
FDL 143010 
FDL13020 
FDL 13030 
FDL13040 
FDL43050 
FDL13060 
FDL13070 
FDL13080 
FDL13090 
FDL13100 
FDL13110 
FDL13120 


‘eu 


tee 
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109ER 
1OA2R 
10A6R 
JOAAR 
1O0AER 
10B2R 
10B6R 
10B8K 
TOBAR 


Ann DPN 
IVDEA 


10C2R 
1O0CE6R 
{OC8R 
10CAR 
10CCR 
10DOR 
10D2R 
10D4R 
1OD6R 
TODAR 
1ODER 
10EOR 
10E2R 
10E6R 
1OEAR 
1OEER 
10F2R 
10F6°? 
1OFAR 
10FER 
1100R 
1104R 
11088 
110CR 
1116R 
1112R 
1176R 
111AR 
111ER 
1122 
1126R 
T12AR 
112CR 
112ER 
1132R 
11368 
113AR 
113ER 
1142R 
1146R 
1148R 
114CPR 
11508 
1154R 
1158R 


4040 
41C0 
8150 
4860 
4060 
43840 
2641 
OA46 
D370 
43857 
4867 
O865 
08 36 
26231 
41C0 
0822 
2332 
2631 
40 30 
4040 
0A43 
2641 
4540 
43A0 
4390 
4040 
4860 
4OEO 
4060 
2480 
C850 
C860 
4840 
4TEO 
2641 
D370 
4857 
4867 
41EO 
W1E0 
CSAO 
2322 
2305 
C550 
4280 
C860 
4065 
4065 
41C0 
O84A 
41E0 
4840 
41CO 
41EO 
4860 


O18AR 
T1IE2R 
16D4R 
0028R 
0188R 
O18AR 


012CR 


nazann 


WVU 


0140R 


1024R 


0144R 
0182R 


C17CR 
ODHOR 
OD4OR 
018CR 
O18ER 
016CR 
0136R 


0136R 
0165R 
0182R 
18CER 


012CR 
013CR 
0140R 
18CER 
1602R 
OOTC 


0008 
15FOR 
7000 
OOTAR 
OO01CR 
11E2R 


18CER 
0180R 
11E2R 
16D4R 
O18ER 
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1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 


U2 


U3 


U9 


U8 


R4,IPDBP 
RC,SULH56 
RE,RDLRN 
R6,INBUF+14 
R6,SIZEI 
84,1 PDBP 
R4a,1 

R4,R6 
R7,FLG16 
R5,LOWCRT) 
R6,HIGH(R7) 
R6,R5 


R4,NSLRNA 
R4,R3 

R4,1 
R4&,MAXLRNO 
10,CR91 
9,CR91 
R4,NCPDBP 
R6,TEMSAYV 
R5,CSEQNUMOD 


R6,SEQNUM 


R8,0 
R5,-SEQNUN 
R6,SEQNUM+47 
R4,NSLRNA 
RE,WRLRN 
R4,1 
R7,FL616 
R5,LOW(R7) 
R6,HIGHCR7) 
RE,-WRLRN 
RE,RDIRECT 
RA,STDIR 


QUEST 
R6-X°7000" 
R6,INBUF(R5) 


R6,INBUF+20R5) 


RC,SULH5$ 
R4,RA 
RE,WRLRN 
R4,NSLRN 
RC,SULH5S6 
RE,RDLRN 
R6,TEMSAY 
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SAVE 

LOAD R5-R6 

READ PD8 

LOAD SIZE 

SAVE 

LOAD POINTER 
INCRIMENT PAST PDB 
ADD SIZEI 

LOAD FLAG 

LOAD LOW 

LOAD HIGH 

FIND DIFFERENCE 
PUT IN CORRECT PLACE 
CORRECT BYTE COUNT 
DIVIDE 

SET cc 

NO REMAINDER 
COMPENSATE FOR REMAINDER 
STORE TO PDB 

SAVE FOR VERIFY 
ADD IN NEW SIZE 
ADD IN PDB 

FIT? 

TOO BIG 

TOO BIG 

SAVE 

RE-LOAD POINTER 
SET CURRENT 

SAVE TO PDB 

SET OUTPUT 

LOAD LOW 

LOAD HIGH 

LOAD START LRN 
WRITE PDB 
INCRIMENT PAST PDB 
LOAD FLAS 

LOAD LOW 

LOAD HIGH 

WRITE PROGRAM 


FIND MATCHING SEQUENCE NUMBER 


FIRST LRN ? adda 

YES 

SKIP 

FIRST OCR SECOND ENTRY? 
YES 

LOAD DELETE CHARACTER 
DELETE 

DELETE 

LOAD R5-R86 

LOAD BLOCK POINTER 
WRITE DIRECTORY 

LOAD EOV SLOCK POINTER 
LOAD R5-R6 

READ DIRECTORY BLOCK 


LOAD UPDATE SEQUENCE NUMBER 


FDL13130 
FDL13140 
FDL13150 
FDL13160 
FDL13170 
FDL13180 
FDL13190 
FDL13200 
FDL13210 
FDL13220 
FDL13230 
FDL13240 
FDL13250 
FDL13260 
FDL13270 
FDL13280 
FDL13290 
FDL13300 
FDL13310 
FDL13320 
FDL13330 
FDL13340 
FDL13350 
FDL13360 
FDL13370 
FDL13380 
FDL13390 
FDL13400 
FDL13410 
FDL13420 
FDL13430 
FDL13440 
FDL134&50 
FDL13460 
FDL13470 
FDL13480 
FDL 13490 
FDL13500 
FDL13510 
FDL13520 
FDL13530 
FDL13540 
FDL13550 
FDL13560 
FDL13570 
FDL13580 
FDL13590 
FDL13600 
£DL13610 
FDL13620 
FDL13630 
FDL136480 
FDL13650 
FDL13660 
FDL13670 


Sat 


~~ 
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115CR 48850 0168R 
1160R 4065 OOTAR 
1164R 4860 0182R 
1168R 4065 OO1CR 
116CR 41CO 11E2R 
1170R 41EO 18CER 
1174R 4BEO 0168R 
1178R C550 O07C 

117CR 4330 11AAR 
1180R C550 0078 

1184R 4280 11C4R 
1188R 4860 0182R 
718CR C560 OOF 

1190R 4230 11COR 
1194R 41C0 11E2R 
1198R 4G1EO 16D4R 
119CR 2561 

11I9ER 4060 0096R 
11A2R 4060 0098R 
17A6R 4300 11CER 
TIAAR 26541 

V1ACR 41CO 11E2R 
11BOR 41EO 16D4R 
11B4R 2460 

11B6R 4060 OO1AR 
11BAR 4060 OO1CR 


11BER 2308 
11COR 4850 0168R 
11C4R 2460 


11C6R 4065 OO1ER 
TICAR 4065 0020R 
11CER 41CO 11E2R 
11D2R 41EO 18CER 
11D6R 4840 O18ER 
11DAR 41FO OAESR 
11DER 4300 11FER 
T1E2R C850 OOTAR 
11E6R C860 0099R 
V1EAR Q30C 

T1ECR 2480 

1tEER C830 1992R 
11F2R D320 1ADDR 
11F6R 4&1D0 126AR 
T1FAR 4300 1896R 
11FER 41CO O442R 
1202R C830 19A0R 
1206R D320. 1AEOR 
120AR 2480 

120CR 4&1D0 126AR 
1210R 4300 1896R 


°4214R C830 1A66R 


1218R D320 1AEOR 
121CR 2480 

121ER 41BO 126AR 
1222P 4300 1896R 
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1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1447 
1418 
1419 
1420 
1421 
1422 


U65 


u63 


U64 
U68 


U67 


U66 


SULH 56 


EOD 


EOQJ 


EQV 


RS,CSNI 
R6,INBUFC RS) 
R6-NSLRNA 
R6,INBUF+2(R5) 
RC,SULH56 
RE,@RLRN 
R5,CSNI 
R5,124 

063 

R5-120 

368 
R6,NSLRHWA 
R6,ENDDIR 
u64 
RC,SULH56 
RE,RDLRN 
R6,1 
R6,INBUF+124 
R6,INBUF+126 
U67 

R4,1 
RC,SULH56 
RE,RDLRN 
R6,9 
R6,INBUF 
R6,INBUF+2 
U67 

R5,CSNI 

R6,0 
R6,-INBUF+4(R5) 
R6,INBUF+6(R5) 
RC,SULH56 
RE,WRLRN 
R4,TEMSAYV 
RF,CHK PGMS 
EOJ 

R5,INBUF 
R6,INBUF+127 
RC 

R8,0 
R3,EODMSG 
R2,EODASGS 
RD, FINDCON 
POUND 
RC,CLRDIS 
R3,EOQJMSG 
R2,EOJMSGS 
R8,0 

RD, FINDCON 
POUND 
R3,EOVM 
R2,EQVMS 
R8,0 
RD,FINDCON 
POUND 


LOAD EOV BIB POINTER 


WRITE SEQUENCE NUMBER 


LOAD POINTER 

WRITE PDB POINTER 
LOAD R5-26 

WRITE DIRECTORY 
RE-LOAD POINTER 

LAST ENTRY IN BLOCK? 


NEXT TO LAST? 


LOAD BLOCK POINTER 
LAST BLOCK 


LOAD R5-R6 
RE-READ LRN 
LOAD EOD 

WRITE EOD 

WRITE EOD 
VERIFY 

GET NEXT BLOCK 
LOAD R5-R6 

READ NEXT BLOCK 
LOAD EOY 

STORE EOV 

STORE FOV 

SKIP 

LOAD BIB POINTER 
LOAD EOV 

WRITE EOV 

WRITE EOV 

LOAD R5-R6 
WRITE DIRECTORY 
LOAD SEQUENCE NUMBER 
VERIFY 

DONE 

LOAD Low 

LOAD HIGH 
RETURN 

SET OUTPUT 

LOAD ADDRESS 
LOAD SIZE 

PRINT 

RE~START 

CLEAR DISPLAY 
LOAD ADDRESS 
LOAD SIZE 

SET OUTPUT 
PRINT 

RE-START 

LOAD ADDRESS 
LOAD SIZE 

SET OUTPUT 
PRINT 

RE-START 


FDL13680 
FDL13690 
FDL13700 
FDL13710 
FDL13720 
FDL13730 
FDL13740 
FDL13750 
FDL13760 
FDL13770 
FDL13780 
FDL13790 
FDL13800 
FDL 13810 
FDL13820 
FDL138 30 
FDL13840 
FDL13850 
FDL13860 
FDL13870 
FDL13880 
FDL13890 
FDL13900 
FDL13910 
FDL13920 
FDL13930 
FDL13940 
FDL13950 
FDL13960 
FDL13970 
FDL13980 
FDL13990 
FDL14000 
FDL14010 
FDL 14020 
FDL14030 
FDL14040 
FDL14050 
FDL14060 
FDL14070 
FDL14080 
FDL14090 
FDL14100 
FDL18110 
FDL14120 
FDL14130 
FDL14140 
FDL14150 
FDL14160 
FDL14170 
FDL14180 
FDL14190 
FDL14200 
FDL14210 
FDL14220 


oe 
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1226R 2420 1423 FIND LIs R2,0 CLEAR CHARACTER POINTER FDL14230 
1228R 41CO 1806R 424 BAL RC,SPCOM FIND DELIMITER FDL14240 
122CR 2621 1425 AIS R2,1 INCRIMENT PAST FDL14250 
122ER D332 OOE2R 1426 LB. -R3,CONIN(R2) LOAD 1ST CHARACTER FDL14260 
1232R C530 OO04F 1427 CLHI R3,C*O* O INPUT FDL14270 
1236R 23B8 1428 BFC 11,FINDO OUTPUT DEVICE a FDL14280 
1238R C530 0089 1429 CLHI R3,C’*I® I INPUT FDL14290 
123CR 2323 1430 BFC 11,FINDI INPUT DEVICE FDL14&300 
123ER 4300 15FOR 1431 B QUEST INVALID INPUT FDL14310 
1Z42KR = Z4B2 7432 FINDI LIS R8,2 SET INPUT FLAG © FDL 14320 
W244R 2302 1433 B FINDC GO TO COMMON FDL 14330 
1246R 2480 1434 © FINDO LIS R8,0 SET OUTPUT FLAG FDL14340 
124BR 481C0 1806R 1435 FINDC BAL RC,SPCOM FIND DELIMETER FDL14350 
124CR 2621 1436 ATS R2,1 INCRIMENT PAST FDL14360 
12HER 41EO 153AR 1437 BAL RE,PACK PACK + CONVERT DATA FDL14370 
1252R 4Of8 O16CR i 1438 STH R5,CSEQNUMOCRS8) SAVE FDL14380 
1256EF 905C 1439 SRLS R5,12 SCALE FDL14390 
1258R 4230 15FOR 1440 BNZ QUEST ERROR FDL14400 
125CR 41EO 1602R 1441 BAL RE,R DIRECT FIND IF EXISTS FDL14410. | 
1260R 0833 1442 LDAR R3,R83 LOAD RETURNED SEQUENCE # FDL14420 
1262R 4330 1214R 1443 BZ EOV EOV ENCOUNTERED FDL14430 
12668 4300 11FER 1444 B EOJ DONE FDL14440 
126AR C800 2020 17485 FINDCON LHI RO,X°2020° LOAD BLANK FDL14450 
126ER C810 0048 1446 LHI R1,72 LOAD COUNT FDL14860 
1272R 2712 1447) =6FCO SIS R1,2 DECREMENT COUNT FDL14470 
1274R 4001 OOE2R 1448 STH RO,CONIN(R1) STORE FDL14480 
1278R 2033 1449 BNZ FCO LOOP FDL14490 
127AR D3A0 0010R 1450 LB RA,DEVTYP LOAD DEVICE TYPE FDL14500 
W27ER 2741 1451 SIs RA,1 DECREMENT FDL14510 
12808 2134 1452 BNZ FC1 HOT = 1 FDL14520 
1282R 41C8 12BOR 1453 BAL RC, PASLACR8) PASLA DEVICE(CRT) FDL14530 
1286R 0630D 1454 BR RD RETURN FDL14540 
1288R 27A1 1455 FC1 SIS RA,1 DECREMENT FDL14550 
V2BAR 2134 1456 BNZ FC2 NOT=2 : FDL14560 
4728CR 41C8 12B8R 1457 BAL RC,CLI(R8) CURRENT LOOP DEVICE FDL14570 
1290R 030D 1458 BR RD RETURN FDL14&580 
1292R 27A1 1459 FC2 SIS RA,1 DECREMENT FDL14590 
1294R 2134 1460 BNZ FC4 NOT=3 FDL14600 
1296R 41C8 12B8R 1461 FC3 BAL RC,CLI(R8) DEFAULT TO TTY FDL14610 
129AR 030D 1462 BR RD RETURN FDL14620 
4729CR 274A1 1463 FC4 SIs RA,1 DECREMENT FDL14630 | 
129ER 2134 1464 BNZ FC5 NOT=4 FDL14640 
J2A0R 41C8 12B0R 1465 BAL RC,PASLACR8) PASLA DEVICE(CARCUSEL) FDL 14650 
12A4R 030D 1466 BR RD RETURN PDL14660 
12A6R 27A1 1867 FCS sIs RA,1 DECREMENT FDL14670 
T2A8R 2039 1468 BNZ FC3 NOT=5 FDL14680 
42AAR 41C8 12COR 1469 BAL RC,MBCRS) KICRO-BUS DEVICE FDL14690 
T2RER 030D 1470 BR RD RETURN FDL14700 
12B0R 4300 1552R 1471 PASLA B PASLAO OUT ON PASLA FDL14710 
12B4P 4300 O9EER 1472 B PASLAI IN ON PASLA FDL14720 
12B8R 4300 OB72R 1473 CLI B TTYO OUT ON CURRENT LOOP FDL14730 
12BCR 4300 O9F4R 1474 B TTYI IN ON CURRENT LOOP FDL14740 
12COR 4300 OB04R 1475 4B B NBO OUT ON MICRC-BUS FDL 14750 
12C4R 4300 O99AR 1876 B MBI IN ON MICRO-BUS FDL147606 
472CS5R 0888 1477 FINDDRY LDAR R8,RB LOAD I/3 FLAG FDL14770 
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| 
| 
* 42CAR 2136 1478 BRZ FD1 INPUT MODE FDL14780 
€ 12CCR 4840 0176R 1479 LH R4,DRO LOAD INPUT DRIVE # FDL14790 
12D0R CA4O 0030 1480 AAI R4,X°30° LOAD FDL14800 
12D4R 2305 1481 BS LEAVE EXIT FDL14810 
( 12D6R 4840 0178R 1482 FDI LH R4,DRT LOAD OUTPUT DRIVE 4 FDL14820 
12DAR CAO 0030 1483 AAI R4,X*30* LOAD FDBL148 30 
12DER 030C 1484 LEAVE BR RC RETURN FDL14840 
( 12EOR 41D0 OBS2R 1485 FMAXLRN BAL RD, RESET IDLE CHECK FDL14850 
12E4R C840 O7D2 1486 LHI R4,X*7D2° LOAD MAX GOOD LRN FDL14&860 
12E8R 4818 0170R 1487 8 FM1 LH R1,PRECMDOCRS8) LOAD PRECOMMAND FDL14870 
¢ J2ECR 2421 1488 LIS R2,1 LOAD READ CMD BITS FDL14880 
12EER 0612 1489 OAR R1,R2 MERGE FDL14890 
12FOR 41CO 11E2R 1490 BAL RC,SULH56 LOAD 25-856 FDL1490G6 
¢ 12F4R D320 0017R 1491 LB R2,FLPAD LOAD ADDRESS FDL14910 
12F8R 9824 1492 WHR R2,R4 WRITE LRN # : FDL146920 
12FAR 9E21 1493 OCR R2,81 ISSUE READ FDL14930 
12FCR 9D23 1494 SSR R2,R83 SENSE STATUS FDL14940 
12FER 2081 1495 BTBS 8,1 WAIT FOR SUSY NOT FDL14950 
1300R D925 0000 1496 FM2 RH R2,0(R5) READ DATA FDL14960 
( 1304R 2662 1497 AIS a5,2 BUMP FDL14970 
1306R 0565 1498 CLAR 86,85 DONE?? FDL14980 
1308R 2284 1499 BNCS FH2 NQ, LOOP FDL14990 
¢ 130AR 9D23 1500 SSR R2,83 SENSE STATUS FDL15000 
130CR C330 0050 1501 THI R3,X°50° TEST FOR DEFECTIVE TRACK FDL15010 
1310R 2126 1502 BTFS 2,AGAIN TRY NEXT FDL15020 
( 1312R 41D0 18AAR 1503 BAL RD,STOP STOP FDL15030 
1316R 4048 017CR 1504 STH R4U,MAXLRNOCRB) STORE MAX FDLIECKS 
131AR 030E 1505 BR RE RETURN FDL15050 
if 131CR 41D0 18AAR 1506 AGAIN BAL RD,STOP STOP FDL15060 
1320R C540 O79E 1507 CLHI R4&,X*°79E* EXCEEDS MINIMUM FDL15070 
* §91324R 2185 1508 BL MEDERR YES FDL15080 
¢ 1326R CB4O OO1A 1509 SHI R4,26 DECREMENT FDL15090 
132AR 4300 12E8R 1510 B FAT GO AGAIR FDL15100 
132ER 4040 017CR 1511  MEDERR STH R&,MAXLRNO STORE RESULT FDL15110 
( 1332R C830 19A4R 1512 LDAI &83,MEDMSG LOAD ADDRESS FDL15120 
1336R D320 1AE1R ; 1513 LB R2,MEDMSGS LOAD SIZE FDL15130 
133AR 2480 1514 LIS R8&,0 SET OUTPUT FDL15140 
é 133CR 41D0 126AR 1515 BAL RD, FINDCON PRINT FDL15150 
1340R 4300 1896R 1516 B POUND RE-START FDL15160 
1344R 2480 1517 INIT LIS R8,0 SET OUTPUT FDL15170 
¢ 1346R 41E0 12E0R 1518 BAL RE,FMAXLRN FIND MAXIMUM LRN FDL15180 
134AR 41FO 1362R 1519 BAL RF,INITDIR INITIALIZE DIRECTORY FDL15190 
134ER 41FO 18BER 1520 BAL RF,WRTBOOT WRITE LRN 5 FDL15200 
t 1352R C840 0020 1521 LDAI R4&,STSAV LOAD INIT VALUE ada FDL15210 
1356R 4040 018CR 1522 STH R&,NCPDBP INITIALIZE FBL15220 
135AR 4040 0182R 1523 STH R4,NSLRNA INITIALIZE FDL15230 
t 135ER 4300 11FER 1524 B EOJ PRINT EOJ FDL15240 
1362R 2440 1525 INITDIR LIS R4,9 CLEAR STORAGE FDL15250 
1364R 2450 1526 LIS 25,0 CLEAR POINTER FDL15260 
é 1366R 4045 COTAR 4527 ID1 STH R4, INBUF(RS5) STORE FDL15270 
136AR 2652 1528 AIS R5,2 INCRIMENT POINTER © FDL15280 
136CR C550 0080 1529 CLHI 85,128 DONE FDL15290 
q * 1370R 208 1530 BTC 11,1D1 LOOP FDL15300 
1372R C840 OO1C 1531 LHI R4,STDIR LOAD FIRST LRN aaa FDL15310 
1376R 48100 OB52R 1532 BAL RD,RESET IDLE CHECK FDL15320 


y _ 9 


om, 
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“437AR 
137ER 
1382R 
1384R 
1388R 
138CR 
138ER 
1392R 
1396R 
1398R 
139CR 
13A0R 
13A4R 
13A8R 
13AAR 
{3AER 
1380R 
13B2R 
13B4R 
13B8R 
13BCR 
13COR 
13C2R 
13C4R 
13CAaR 
13CCR 
13D0R 
13D2R 
13D2R 
13D6R 
73D8R 
13DAR 
13 DER 
13E2R 
13E6R 
13EAR 
T3EER 
13F2R 
13F6R 
I3FAR 
13FER 
1402R 
1406R 
T4OAR 
140ER 
412K 
1416R 


41C0 
HTEO 
2641 
41C0 
41E0 
2641 
410 
4150 
2541 
4040 
c84o0 
&1C0 
41E0 
O30F 
C810 
OA11 
2319 
2442 
D210 
C800 
4000 
2309 
24510 
D210 
ca00 
4000 
2301 


c800 
9530 
0700 
4000 
4000 
4000 
4000 
8000 
4000 
4000 
4#OCO 
40060 
caco 
4000 
ceaco 
4000 
ceoo 
4000 
036Cc 


11E2R 
18CER 


1TE2R 
18CER 


T1E2R 
18CER 


0098R 
OO1F 

11E2R 
18CER 


4000 


012CR 
13D2R 
003E 


012CR 
13D2R 
O03E 


20F0O 


002C 
00390 
0032 
0034 
0038 
OO3A 
003C 
0044 
cO4C 
VAF4UR 
0022 
14188 
0036 
T4H24R 
003E 


- 
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1533 BAL RC,SULH56 
1534 BAL RE,WRLRN 
1535 AIS R4,1 
1536 BAL RC,SULH56 
1537 BAL RE, WRLRN 
1538 AIS R4,1 
1539 BAL RC,SULH56 
1540 BAL RE,WRLRN 
1541 LCs R4,1 
1542 STH R4,INBUF+126 
1543 LHI R4&,ENDDIR 
1544 BAL RC,SULH56 
1545 BAL RE,WRLRN 
1546 BR RF 
1547 LCORE LHI R1,X°4000" 
1548 AAR R1,R1 
1549 BNH BIG 
1550 LIS R1,2 
1551 STB R1,FLG16 
1552 LDAI RO,SETUPA 
1553 STH RO,X°3E* 
1554 B SETUPA 
1555 BIG LIS R1,0 
1556 STB R1,FLG16 
1557 LDAI RO-SETUPA 
1558 STH RO,X°3E* 
1559 B SETUPA 
1560 IFZ ADC-2 
1561 SETUPA LHI RO,X*20F0° 
1562 EPSR R3,R0O 
1563 G016 XAR RO,RO 
1564 STH RO,X*2C°* 
1565 STH RO,X* 30° 
1566 STH RO,X‘32* 
1567 STH RO,X*°34° 
1568 STH R0,X° 38° 
1569 STH RO,X°3A° 
1570 STH RO,X°3C° 
1571 STH RO,X* 44° 
1572 STH RO,X°4C* 
1573 LHI RO,REGSAVA 
1574 STH RO,X*22° 
4575 LDAI RO,ILLIST 
1576 STH RO,X° 36° 
1577 LDAI RO,MCHHMAL 
1578 STH RO,X*3E° 
1579 BR RC 
1580 ELSE 
1581 SETUPA LHI RO,X°20F0’ 
1582 EPSR R3,R0 
1583 GO32A LHI RO,X*FO* 
1584 STH RO,X*32° 
1585 STH RO,X*3A* 
1586 LHI RO,90 
1587 STH RO,X*30° 
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LOAD R5-R6 

WRITE FIRST LRN 
LOAD SECOND LRN 
LOAD R5-R56 

WRITE SECOND LRN 
LOAD THIRD LRN 
LOAD R5-R6 

WRITE THIRD LRN 
LOAD EOD 

STORE 

LOAD LAST LRN aaa 
LOAD R5-R5 

WRITE LAST LRN 
RETURN 

LOAD TEST PATTERN 
DOUBLE 

32BIT MACHINE 
SET 16 BIT FLAG 
STORE 


SETUP MM TO POINT TO SETUP 
TO REMOVE ANY PENDING MMNALF 


60 
CLEAR 16 BIT FLAG 
STORE 


SETUP MM TO POTNT TO SETUP 
TO REMOVE ANY PENDING MMALF 


GO 


LOAD PSW 

SWAD 

LOAD PSW CONSTANT 
STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

LOAD SAVE POINTER 
STORE TO POINTER 
LOAD ADDRESS 
STORE 

LOAD ADDRESS 
STORE 

RETURN 


LOAD PSW 

SWAP 

LOAD PS&@ CONSTANT 
STORE 

STORE 

LOAD PSW CONSTANT 
STORE 


FDL15330 
FDL15340 
FDL15350 
FDL15360 
FDL15370 
FDL15380 
FDL15390 
FDL15400 
FDL15410 
FDL15420 
FDL15430 
FDL15440 
FDL15450 
FDL15460 
FDL15470 
FDL15480 
FDL15490 
FDL15500 
FDL15510 
FDL15520 
FDL15530 
FDL15540 
FDL15550 
FDL15560 
FDL15570 
FDL15580 
FDL15590 
FDL15600 
FDL15610 
FDL15620 
FDL15630 
FDL15640 
FDL15650 
FDL15660 
FDL15670 
FDL15680 
FDL15690 
FDL15700 
FDL15710 
FDL15720 
FDL15730 
FDL15740 
FDL15750 
FDL15760 
FDL15770 
FDL15780 
FDL15790 
FDL15800 
FDL15810 
FDL15820 
FDL15830 
FDL15840 
FDL15850 
FDL15860 
FDL15870 


EE FS 


o, 


1418R 
141CR 
1420R 


1424R 
1428R 
T4H2AR 
142CR 
1430R 
1434R 
1438R 
1Q3AR 
143ER 
T4U2R 
1446R 
TH4AR 
144CR 
14508 
1454R 
1456R 
T45AR 
1USER 
1460R 
1464R 
TH66R2 


D320 
C830 
4300 
0000 
D310 
0811 
2338 
4810 
C310 
4230 
2307 
4800 
4230 
4210 
C800 
9510 
D320 
C8 30 
2480 
41D0 
C800 
9510 
D300 
0800 
4220 


1AE2R 
19B4R 
T454R 
1424R 
012CR 


0038 
0001 
THEER 


0040 
1478R 
146ER 
OOFO 


1AE2R 
19C8R 


126AR 
20F0O 


012DR 


O000R 
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1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1624 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1644 
1642 


LCLP 


ILLIST 


MCHMAL 


MN32 


MCHMAL3 
MCHMAL2 


MCHMALS 


NCHMAL1 


STH 
STH 
STH 
STH 


RO,X°34° 
RO,X°38° 
RO,X°3C° 
RO,X°HO° 
RO,ILLIST 
RO,X*34° 
RO,MCHMAL 
RO,X*3C* 
RO, PSWSAVA 
RO,X*FFOO* 
RO,-X°100° 
RO,X°84° 
RO,REGSAVA 
RO,X*FFQO* 
RO,X°108° 
RO,X°86° 
R3,RELPROT 
R3,X°94" 
R3,BNDYERR 
R3,X°CC° 
R3,-SYSQERR 
R3-X*8C° 
R3,SVCERR 
R4,X*9C* 
R5,4 


R6,X°9C°+32 


R3,O0(R4G) 
R4,LCLP 
RC 


R2,1TLLMSGS 
R3,I1LLASG 
NCHMAL4 

* 


R1,-FLG16 
R1,R1 

MM32 

R1,X° 38° 
R1,k°1° 
PFAIL 
MCHMAL3 
RO,X°4o' 
NEW32 
1,PFAIL 
RO,X°FO' 
R1,R0 
R2,MMFMSGS 
R3,MMFMSG 
R8,0 
RD,FINDCON 
RO,X*20FO° 
R1,R0 
RO,LDFLG 
RO,RO 
STARTL 


STORE 

STORE 

STORE 

STORE 

LOAD ADDRESS 

STORE 

LOAD ADDRESS 

STORE 

GET ADDRESS 

MAKE X°100° BOUNDARY 
MAKE > ORIGINAL 
STORE 

GET ADDRESS 

MAKE X°100° BOUNDARY 
MAKE > ORIGINAL 
STORE 

LOAD ADDRESS 


LOAD ADDRESS 
STORE 

LOAD ADDRESS 
STORE 

LOAD ADDRESS 
LOAD 

BXLE 

LIMITS 

STORE 

Loop 

RETURN 


LOAD SIZE 
LOAD ADDRESS 
RE-ENABLE 


GET FLAG 

SET cc 

32 BIT MACHINE 
GET OLD PSW 

L FLAG SET?? 

NO, POWER DOWN 
POWER UP 

GET POSSIBLE REASON CODE 
SERTES 32 

EARLY POWER FAIL 
LOAD NEW PSW 
DROP MMF INTERRUPT 
LOAD SIZE 

LOAD ADDRESS 

SET OUTPUT 

PRINT 

LOAD CONSTANT 
SWAP PSW 

GET FLAG 

SET CC 

RE-START LOADER 


FDL15880 
FDL15890 
FDL15900 
FDL15910 
FDL15920 
FDL15930 
FDL15940 
FDL15950 
FDL15960 
FDL15970 
FDL15980 
FDL15990 
FDL16000 
FDL16010 
FDL16020 
FDL16030 
FDL16040 
FDL16050 
FDL 16060 
FDL16070 
FDL16080 
FDL16090 
FDL16100 
FDL16110 
FDL16120 
FDL16130 
FDL16 1466 
FDL16150 
FDL16160 
FDL16170 
FDL16180 
FDL16190 
FDL 16200 
FDL16210 
FDL16220 
FDL 16230 
FDL16240 
FDL 16250 
FDL16260 
FDL16270 
FDL16260 
FDL16290 
FDL16399 
FDL16316 
FDL16329 
FDL16336 
FDL1634% 
FDL16359 
FDL16 369 


' FDL16370 


FDL16 320 
FDL16 355 
FDL16469 
FDL16610 
FDL1642¢ 


as, 


ae 


i 
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T46AR 
146ER 
T4722 
1474R 
1476R 
14788 
147AR 
V47CR 
1480R 


1H84R 


1488R 
148CR 
1490R 
1494R 
1498R 
149CR 
14A0R 
14UA4R 
1HABR 
14ACR 
14BOR 
14B4R 
14B6R 
14BAR 
14BCR 
14COR 
14C4R 
44C8R 
+4CAR 
14CER 
14D2R 
14D4R 
14D6R 
14DAR 
14DER 
1HEOR 
14E4R 
14EBR 
14ECR 
14FOR 
J4E2R 
14F6R 
14FAR 
14FCR 
15008 
15048 
1506K 
1508R 
150CR 
1510R 
1512R 
1516R 
151AR 
151ER 
1522R 


4300 
Cc8o0 
9104 
9510 
2204 
2015 
24C0 
4000 
4300 


an 
D320 


C830 
&300 
D320 
C830 
4300 
D320 
C830 
4300 
D320 
C830 
4300 
2420 
410 
2621 
D370 
4020 
41EO 
OR 32 
4B30 
B370 
0877 
2336 
C530 
4220 
2305 
C530 
4220 
4057 
41C0 
2621 
4020 
41EO 
08 32 
4330 
D370 
0877 
2336 
C530 
4220 
235 
C520 
4220 
4057 
4uBS7 
#280 


1896R 
OAOF 


0040 
1GHAR 


4ar7n 
IADR 


1A8CR 
1454R 
JAEGER 
TAACR 
V4H54R 
TAE9R 
1ABER 
1454R 
JAEAR 
1ADOR 
1454R 


1806R 


012CR 
O18ER 
153AR 


O18ER 
012CR 


0004 
15FOR 


0006 

15FOR 
013CR 
18068 


O18ER 
153AR 


JI8ER 
012CR 


0004 
1SFOR 


0006 

15FOR 
O140R 
013CR 
OD2ER 
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1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
7655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 


PFAIL 


NEW32 


BNDYERR 


SYSQERR 


SVCERR 


LIMITS 


LIMN32 


LI482 


LIM32A 


LIK3 


B 
LHI 
SLLS 
EPSR 
B 

BM 
LIs 


BTC 


GENERATOR 


POUND 
RO,X*OAOF® 


RO,X°40° 


R3,RPMSG 
MCHMAL4 
R2,BNDYMSGS 
R3,BNDYMSG 
MCHMALS 
R2,SYSQUSGS 
R3,SYSQMSG 
MCHMALG 
R2,SVCMSGS 
R3,SVCMSG 
MCHMALU 
R2,0 
RC,SPCOM 
R2,1 
R7,FLG16 
R2,TEMSAV 
RE, PACK 
23,22 
R3,TEMSAY 
R7,FLG16 
R7,R7 
LIM32 

R3,4 
2,QUEST 
LIM2 

R3,6 

2, QUEST 
R5,LOW(R7) 
RC,SPCOM 
22,1 

22, TEMSAY 
RE, PACK 
R3,R2 
R3,TEMSAY 
27,FLS16 
RT,R7 
LIM32A 
R3,4 
2,QUEST 
LIM3 

R3,6 

2, QUEST 
R5,HIGH(R7) 
R5,LOW(R7) 
8,CR9 
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RE-START 
LOAD NEd PS# 
SCALE 


SET WAIT €& ENABLE FOR POWER-UP 


BRANCH/LOOP 
POWER DOWN 
CLEAR 

STORE 

POWER UP OR OTHER 
LOAD SIZE 

LOAD ADDRESS 

SO TO COMMON 
LOAD SIZE 

LOAD ADDRESS 

GO TO COMMON 
LOAD SIZE 

LOAD ADDRESS 

GO TO COMMON 
LOAD SIZE 

LOAD ADDRESS 

GO TO COMMON 
CLEAR CHARACTER POINTER 
FIND DELIMITER 
INCRIMENT PAST 
LOAD 16 FLAG 
SAV® POINTER 
PACK + CONVERT 
SET NEW POINTER 
FIND DIFFERENCE 
LOAD FLAS 

SET cc 

SKIP IF 32 BIT 
4 CHARACTERS ? 
TOO MANY 
CONTINUE 

MORE THAN 6 DIGITS ? 
ERROR 

STORE TO LOW 
FIND DELIMITER 
INCRIMENT PAST 
SAVE POINTER 
PACK € CONVERT 
GET NEW POINTER 
FIND DIFFERENCE 
LOAD 16 FLAG 
SET cc 

SKIP IF 32 SIT 
GREATER THAN 4&4 DIGITS ? 
ERROR 

CONTINUE 
GREATER THAN 6 DIGITS ? 
ERROR 

STORE TO HIGH 
FIND DIFFERENCE 
LOH ERROR 


FDL16430 
FDL16440 
FDL16450 
FDL16460 
FDL16470 
FDL16480 
FDL16490 
FDL16500 
FDL16510 
FDL 16520 
FDL16530 
FDL16540 
FDL16550 
FDL16560 
FDL16570 
FDL16580 
FDL16590 
FDL16600 . 
FDL16610 
FDL16620 
FDL16630 
FDL16640 
FDL16650 
FDL16660 
FDL16670 
FDL16680 
FDL 16690 
FDL16700 
FDL16710 
FDL16720 
FDL16730 
FDL16740 
FDL16750 
FDL16760 
FDL16770 
FDL16780 
FDL16790 
FDL16800 
FDL16810 
FDL16820 
FDL 16830 
FDL16840 
FDL16850 
FDL 16860 
FDL16870 
FDL 16880 
FDL16890 
FDL16900 
FDL16910 
FDL16920 
FDL16930 
FDL16940 
FDL16950 
FDL16960 
FDL16970 


Pome 


06-225FO1N96R 


1526R 
1528R 
152CR 
152ER 
1530R 
1532R 
1536R 
153AR 
153CR 
1540R 
1544R 
1546R 
1548R 
154AR 
T54CR 
1S4ER 
1550R 
1552R 
1556R 
155AR 
155ER 
1560R 
1562R 
1564R 
1568R 
156C8 
1570R 
1574R 
1576R 
1578R 
157CR 
157ER 
1580R 
1584R 
1586R 
1588R 
TS8AR 
158ER 


1592R 


1594 
1596R 
1598R 
159CR 
159ER 
15A0R 
15A4R 
15A6R 
TSAAR 
TSACR 
T5AER 


-15B0R 


15B2R 
T5B4R 
15B6R 
15B8R 


0835 
81C0 
0822 
2332 
2631 
4030 
4300 
2450 
D312 
41C0 
0811 
2115 
9154 
OAS 
2621 
2209 
030E 
D310 
DE10 
DE10 
9B14 
9D14 
2281 
D310 
DE10 
4300 
D310 
9D14 
2081 
DA13 
2631 
2721 
D310 
9D14 
218C 
9B14 
C540 
42B0 
9D14 
2081 
9B14 
c540 
20B5 
0822 
4230 
030C 
D310 
9D14 
2081 
24 4D 
9A 174 
9D14 
2081 


-2UHA 


9A14% 


1024R 


O1V44R 
1896R 


OOE2R 
OBAAR 


0012R 
0131R 
0133R 


0013R 
0132R 
15A68 
0013R 


0000 


0012R 


0014 
159ER 


0012 


1570R 


0013R 


O1A1 


LIM1 


PACK 
PK1 


PK2 


PASLACG 


PAOS 


PAO2 


R5,0 


Ri, CONIN(R2) 


RC,CONVERT 
R1,R1 
PK2 


R1,PASAD 
R1,PASL2 
R1,PASRD 
R1,R4 
R1,R84 
8,1 
R1,PASAD+1 
R1,PASUR 
PAO4& 
R1,PASAD+1 
R1,R4 
8,1 
R1,0(R3) 
R3,1 
R2,1 
R1,PASAD 
R1,R4 

8, PAO3 
R1,R4 
R4,xX° 4° 
11,PA03 
R1,R4 


R1,PASAD+1 
R1,R4 

8,1 

R4,13 
R1,R4 
R1,R4 

8,1 

R4,10 
R1,R4 


rz 


PAGE 


32 


06:35:14 


LOAD 
DIVIDE 


OB/17/79 


LOAD REMAINDER 


NO REMAINDER 
INCRIMENT FOR REMAINDER 


SAVE # OF LRNS 


DONE 


CLEAR DATA STORAGE 


LOAD DATA 


CONVERT TO HEX 


LOAD HEX 
BAD RETURN 


ROTATE DATA 


ADD IN NEXT DATA 
INCRIMENT COUNT 


LOOP 
RETURN 


LOAD READ ADDRESS 
SET CMD2 BYTE 
SET READ MODE 


DUMMY READ 


SENSE STATUS 


WAIT FOR BUSY 
LOAD WRITE ADDRESS 
SET WRITE ¥ODE 


SKIP 


LOAD WRITE ADDRESS 


SENSE STATUS 


BUSY LOOP 
WRITE DATA 


INCRIMENT POINTER 
DECREMENT COUNT 
LOAD READ ADDRESS 


SENSE STATUS 


BUSY = INPUT READY 


INPUT DATA 


COMPARE TO DC4&(STOP) 
JUNK CHARACTER 


SENSE STATUS 


BUSY LOOP 
READ DATA 


COMPARE TO DC2(GO) 
LOOP UNTIL MATCH 


LOAD COUNT 
CONTINUE 
RETURN 


LOAD WRITE ADDRESS 


SENSE STATUS 


BUSY LOOP 
LOAD CR 
WRITE DATA 


SENSE STATUS 


BUSY LOOP 
LOAD LF 
WRITE DATA 


FDL16980 
FDL16990 
FDL17000 
FDL17010 
FDL17020 
FDL17030 
FDL17040 
FDL17050 
FDL17060 
FDL17070 
FDL17080 
FDL17090 
FDL17100 
FDL17110 
FDL17120 
FDL17130 
FDL17140 
FDL17150 
FDL17160 
FDL17170 
FDL17180 
FDL17190 
FDL17200 
FDL17210 
FDL17220 
FDL17230 
FDL17246 
FDL17250 
FDL17260 
FDL17270 
FDL17280 
FDL17290 
FDL17300 
FDL17310 
FDL17320 
FDL17330 
FDL17340 
FDL17350 
FDL17360 
FDL17370 
FDL17380 
FDL17390 
FDL17400 
FDL17410 
FDL17420 
FDL17430 
FDL17440 
FDL17450 
FDL17460 
FDL17470 
FDL17480 
FDL17490 
FDL17500 
FDL17510 
FDL17520 


-) 
if 
mt 


~F 
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T5BAR 
15BCpP 
1582? 
15C 2% 
15C 4F 
15C3P 
15CCP 
15D04 
15D22 
15D42x 
15D8R 
15DAR 
15DCR 
15DEP 
15E0R 
15E2R 
15E4R 
15E6R 
15E8P 
15EAR 
15ECR 
15EER 
15FOR 
15F4k 
15F6R 
15FBR 
15FCR 
16002 
1602R 
1604R 
1608R 


- 160CR 


1610R 
1614R 
1618R 
161CR 
161ER 
1620R 
1624R 
1626R 
1628R 
162AR 
162ER 
1632R 
1634R 
1636R 
163AR 
163CR 
163ER 
1640R 
1642R 
1646R 
1648R 
164AR 
164ER 


SD14 
2081 
C840 
GA 14 
4300 
D310 
DE10 
9D1u 
2081 
DA13 
2631 
2721 
20 36 
243D 
9D14 
2081 
9A13 
243A 
9014 
2081 
9413 
030C 
C830 
2421 
2480 
4150 
4300 
3F20 
2400 
C8A0 
Cc84o 
4150 
41C0 
4698 
4818 
2421 
0612 
D320 
9824 
9E21 
26A1 
CSAO 
4330 
9D23 
2081 
D925 
2652 
0565 
2284 
9DZ3 
4&250 
2450 
2464 
ce70 
4835 


OOFF 


5708 
0015R 


0080 


0000 


1600R 


126AR 
1896R 


001B 
O01C 
OB52R 
11E2R 
016CR 
0170R 


0017R 


0020 
1692R 


0000 


1692R 


o07Cc 
OOTAR 


FLOPPY DIAGNOSTIC LOADER/GENERATOR PAGE 
1753 SSR R41, R4 
1754 BTBS 8,1 
1755 LHI «RU, X* FF 
1756 WDR = -R1,R4 
1757 B PAOS 
1758 PRTO LB R1,LPAD 
1759 oc R1,X'80° 
1760 PRI SSR R1,R4 
1761 BTBS 8,1 
1762 wD R1,0(R3) 
1763 AIS R3,1 
1764 SIS _R2,1 
1765 BNZ  PR1 
1766 LIS 83,13 
1767 SSR -R1,84 
1768 BIBS 8,1 
1769 WDR = R1,R3 
1770 LIS  R3,10 
1771 SSR R1,R4 
1772 BTBS 8,1 
1773 WDR = R1,83 
1774 BR RC 
1775 QUEST LDAI R3,QNSG 
1776 LIS = R2,1 
1777 LIS R8,0 
1778 BAL RD,FINDCON 
1779 B POUND 
1780 MSG DC cs2* 

1781 RDIRECT LIS  R0,0 

1782 LHI RA, STDIRM 
1783 LHI R4,STDIR 
1784 RDLOOP BAL R&D,RESET 
1785 BAL  RC,SULHS6 
1786 LH R9,CSEQNUMO(RB) 
1787 LH R1,PRECMDO(RB) 
1788 LIS  -R2,1 

1789 OAR = R1,R2 

1790 LB R2,FLPAD 
17914 WHR =-R2, RY 

1792 CCR R2,R1 

1793 RDIRECT2 AIS RA,1 

1794 CLHI RA,STSAV 
1795 BE RDIRERR 

1796 SSR R2,R3 

1797 BIBS 8,1 

1798 RDHL RH R2,0(R5) 
1799 AIS R5,2 

1800 CLAR R6,R5 

1801 BNCS RDHL 

1802 SSR R2,R3 

1803 BTC 5,RDIRERR 
1804 LIS  R5,0 

1805 LIS R6,4 

1806 LHI = RT, X*7C° 
1807 RDIRECT1 LH R3,INBUF(RS) 
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SENSE STATUS 
BUSY LOOP 
LOAD DELETE 
ARITE DATA 
RETURN 

LOAD ADDRESS 
SET DISABLE 
SENSE STATUS 
BUSY LOOP 
ARITE DATA 
INCRIMENT POINTER 
DECREMENT COUNT 
Loop 

LOAD CR 
SENSE STATUS 
BUSY LOOP 
WRITE DATA 
LOAD LF 
SENSE STATUS 
BUSY LOOP 
WRITE DATA 
RETURN 

LOAD ADDRESS 
LOAD SIZE 
SET OUTPUT 


PRINT 


RE-START 


CLEAR RO 

INIT RA aad 

LOAD START LR Daa 
IDLE CHECK 

LOAD R5-R6 


LOAD CURRENT SEQUENCE # 


LOAD PRE-COMMAND 
LOAD READ C&D 
MERGE CMD 

LOAD ADDRESS 


WRITE LRN TO CONTROLLER 


ISSUE READ CHD 


INCRIMENT CURRENT LRN POINTER 


EXHAUSTED DIRECTORY ? 
YES 
SENSE STATUS 

WAIT FOR BUSY NOT 
READ 2 BYTES 

BUMP 

DONE?? 

NO, LOOP 

SENSE STATUS 
READ ERROR 

SETYP 

BXLE 

LIMITS 

LOAD SEQUENCE # 


FDL17530 
FDL17540 
FDL17550 
FDL17560 
FDL17570 
FDL17580 
FDL17590 
FDL17600 
PDL17610 
PDL77626 
FDL17630 
FDL17640 
FDL17650 
FDL17660 
FDL17670 
FDL17680 
FDL17690 
FDL17700 
FDL17710 
FDL17720 
FDL17730 
FDL17740 
FDL17750 
FDL17760 
FDL17770 
FDL17780 
FDL17790 
FDL17800 
FDL17810 
FDL17820 
FDL178306 
FDL17840 
FDL17850 
FDL17860 
FDL17870 
FDL17880 
FDL17890: 
FDL17900 
FDL17910 
FDL17920 
FDL179 30 
FDL17940 
FDL17950 
FDL17960 
FDL17970 
FDL17980 
FDL17990 
FDL18000 
FDL18010 
FDL18020 
FDL18030 
FDL18040 
FDL18050 
FDL18060 
FDL18070 


om, 


1682R 
166ER 


167CR 
T64ER 
11E2R 
1628R 


0170R 
18AAR 


OOTCR 


012DR 


18AAR 
11ECR 


0005 
16AER 


0170R 
18AAR 


160CR 
12C8R 
19FAR 
168AAR 
012DR 


19DCR 
TAE3R 


126AR 
1896R 


012CR 
O190R 
OB52R 
0170R 


0017R 


OO7E 
0000 


LOADER/GENERATOR PAGE 
BH EOD1 
LDAR 33,R3 
BZ EOV1 
CLAR 23,29 
BE MATCH 
BXLE R5,RDIRECT1 
BAL RC,SULH56 
B RDIRECT2 
EOV1 LCS R41 
LIS 3,0 
EOVEX LH R1,PRECMDO( 28) 
BAL  RD,STOP 
BR RE 
MATCH LH R4, INBUF+2(85) 
BS EOVEX 
EOB1 LB RO, LDFLG 
LDAR RO,RO 
BNZ  EQV1 
BAL  RD,STOP 
B EOD 
RDIRERR LDAR R0,R0 
CLHI RO,K'O5* 
BTC 11,RDIRERR1 
AIS RO, 1 
LH R1,PRECMDO(R8) 
BAL  RD,STOP 
LDAR R4,RA 
SIS RA,1 
B RDLOOP 
RDIRERR1 BAL RC,FINDDRV 
STB R4,RDEMSG+30 
BAL  RD,STOP 
LB RO, LDFLG 
LDAR RO,RO 
BNZR RE 
LDAI R83,RDEMSG 
LB R2,RDEMSGS 
LIS 8,0 
BAL &D,FINDCON 
B POUND 
RDLRN LIS R0,0 
LB R7,FLG16 
STA RS, R5SAV(R7) 
RLRNLOOP BAL &D,RESET 
LH R1,PRECNDO(R8) 
LIS R2,1 
OAR R1,R2 
LB R2-FLPAD 
WHR =- R2,R4 
OCR R2,R1 
RLHL SSR R2,R3 
BTBS 8,1 
LHI 7,126 
RLHL1 RH R2,0(R5) 
AIS R5,2 
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EID 

LOAD SEQUENCE # 
EOV 

MATCH 

YES 

LOOP 

LOAD B5-R6 
CONTINUE 

LOAD F°*S 

LOAD EOV 

LOAD PRE-CKD 
ISSUE STOP 
RETURN 

LOAD PDB POINTER 
EXIT 

LOAD LOAD FLAG 
SET CC 

NO PRINT IF LOAD MODE 
STOP 

PRINT 

LOAD ERROR COUNT 
FIVE TIMES 

YES, HARD ERROR 


-INCRIMENT COUNT 


LOAD PRE-CMD 

STOP 

RELOAD LRN POINTER 
DECREMENT CURRENT POINTE 
Loop 

FIND ERROR DRIVE 
STORE TO MESSAGE 
STOP 
LOAD LOAD FLAG 

SET CC 

RETURN 

LOAD ADDRESS 

LOAD SIZE 

SET OUTPUT 

PRINT 

RE-START 

CLEAR ERROR COUNTER 
GET FLAG 

SAVE R5 

IDLE CHECK 

LOAD PRE-CMND 

LOAD READ 

MERGE CMD 

LOAD ADDRESS 

WRITE LRN TO CONTROLLER 
READ 

SENSE STATUS 

WAIT FOR BUSY NOT 
LOAD LOOP COUNT 
READ 2 BYTES 

BUMP 


FDL18080 
FDL18090 
FDL18100 
FDL18110 
FDL18120 
FDL18130 
FDL18140 
FDL18150 
FDL18160 
FDL18170 
FDL18180 
FDL18190 
FDL18200 
FDL18210 
FDL18220 
FDL18230 
FDL 18240 
FDL18250 
FDL18260 
FDL18270 
FDL18280 
FDL18290 
FDL18300 
FDL18310 
FDL 18320 
FDL18 330 
FDL12340 
FDL18350 
FDL18 360 
FDL18 370 
FDL18380 
FDL18 390 
FDL18400 
FDL18410 


-FDL 18420 


FDL18430 
FDL18440 
FDL18450 
FDL18460 
FDL18470 
FDL 18480 
FDL18490 


FDL78500° 


FDL18510 
FDL18520 
FDL13530 


FDL1E540 


FDL13550 


FDL13560 


FDL18570 
FDL18580 
FDL18590 
FDL13600 
FDL13610 
FDL12620 


Fa) 


ad 
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1700R 
1702R 
1704R 
1706R 
1708R 
170AR 
170CR 
1710R 
1712R 
477168 
171AK 
474CR 
1720R 
1724R 
1728R 
172CR 
1730R 
1734R 
1736R 
1738R 
173CR 
1740R 
1742R 
1746R 
174AR 
174ER 
1752R 
1754R 
1756R 
175AR 
175ER 
1762R 
1764R 
1766R 
176AR 
176CR 
176ER 
1770R 
1774R 
1776R 
177AR 
177ER 
1780R 
1784R 
1788R 
178AR 
178ER 
1792R 
1794R 
1798F 
179CR 
179ER 
17A2R 
17A6R 
17A8R 


2772 
2214 
0565 
228A 
9D23 
2154 
41L0 
030E 
C500 
&330 
2601 
4150 
D370 
4857 
4300 
415B0 
D390 
02899 
023E 
C8 30 
D32z0 
2480 
4100 
4300 
C810 
4620 
9124 
0612 
40106 
C810 
4820 
9124 
0612 
4010 
Q30C 
2420 
2430 
41C0 
2621 
41E0 
HOEO 
90£C 
&230 
41C0 
2621 
41EO 
4050 
905C 
4230 
41C0 
2621 
41EO 
4050 
$0586 
4230 


0172R 


1B06R 


153AR 
0136R 


15FOR 
1806R 


153AR 
0138R 


15FOR 
1B06R 


153AR 
O13AR 


T5FOR 


FLOPPY DIAGNOSTIC LOADER/GENERATOR 


1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 


RDLRNE 


RDLRNE‘4 


SETUP 


SEQ 


SIS 


BNAS 


R7,2 
RLHL1 


RO,X"05"° 
RDLRNEW 
RO,1 
RD,STOP 
R7,FLG16 
R5,R5SAV(R7) 
RLRNLOOP 
RD,STOP 
R9,LDFLG 
R9,R9 

RE 
R3,RDL#SG 
R2,RDLMNSGS 
R8,0 
RD,FINDCON 
POUND 
R1,X°CO° 
R2,DR90 
R2,4 

R1,R2 
R1,PRECMDO 
R1,X°CO" 
R2,DRI 
R2,4 

R1,R2 
R1,PRECMDI 
RC 

R2,0 

R3,0 
RC,SPCOM 
R21 

RE, PACK 
R5,SEQNUM 
R5,12 
QUEST 
RC,SPCOKM 
R2,1 
RE,PACK 
R5, P06 
R5,12 
QUEST 
RC,SPCO# 
R2,1 
RE,PACK 
R5,REVLEV 
R5,8 

QUEST 
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DECREMENT 

DONE?? 

DONE? ? 

NO, LOOP 

SENSE STATUS 
READ ERROR 

STOP 

RETURN 

FIVE TIMES? 

YES 

INCRINENT 

STOP 

LOAD FLAG 
RESTORE 25 

RETRY 

STOP 

LOAD LOAD FLAG 
SET CC 

RETURN 

LOAD ADDRESS 
LOAD SIZE 

SET OUTPUT 

PRINT 

RESTART 

LOAD DISABLE 
LOAD DRIVE # 
SCALE 

MERGE 

STORE 

LOAD DISABLE 
LOAD DRIVE # 
SCALE 

MERGE 

STORE 

RETURN 

CLEAR CHARACTER POINTER 
CLEAR STORAGE POINTER 
FIND DELIMITER 
INCRIMENT PAST 
PACK AND CONVERT 
STORE 

SCALE 

TOO MANY CHARACTERS IN FIELD 
FIND DELIMITER 
INCRIMENT PAST 
PACK AND CONVERT 
STORE 

SCALE 

TOO MANY CHARACTERS IN FIELD 
FIND DELIMITER 
INCRIMENT PAST 
PACK + CONVERT 
STORE 

SCALE 

TOO MANY CHARACTERS IN FIELD 


FDL18630 
FDL18640 
FDL18650 
FDL18660 
FDL18670 
FDL18680 


FDL18690. 


FDL18700 
FDL18710 
FDL18720 
FDL18730 
FDL18740 
FDL18750 
FDL18760 
FDL18770 
FDL18780 
FDL18790 
FDL18800 
FDL18810 
FDL18820 
FDL18836 
FDL18840 
FDL18850 
FDL18860 
FDL18870 
FDL18880 
FDL18890 
FDL18900 


- FDL18910 


FDL18920 
FDL18930 
FDL18940 
FDL18950 
FDL18960 
FDL18970 
FDL18980 
FDL18990 
FDL19000 
FEL19010 
FDL19020 
FDL19030 
FDL19040 
FDL19650 
FDL19060 
FDL19070 
FDL19080 
FDL19090 
FDL19100 
FDL19110 
FDL19120 
FDL19136 
FDL19740 
FDL191506 
FDL19160 
FDL19170 


Fa 


ny, 


an 


SEQ3 


SEQ1 


SEQ2 
SPCOM 


SPCOM1 


FIOD 


BOOT1A 


BOOTO 


BOOT2 


LOADER /GEN ER ATO? PAGE 
LB R1,CONINCR2) 
CLHI R1,C*.' 
BNE SEQ3 
AIS R21 
BAL  RE,PACK 
STB R5,TEMSAV 
SRLS &5,4 
BNZ QUEST 
LB RS,TEMSAY 
SLLS R5,12 
OH R5,REVLEV 
STH R5,REVLEY 
BAL RC,SPCOM 
AIS = R2¢1 
BAL RC,CFFORM 
LIS  R3,0 
LB R1,CONIN(R2) 
CLHI R1,X"OD' 
BE SEQ2 
STB R1,FFORN(R3) 
LDAR R3,R3 
CLHI R3,30 
BE QUEST 
AIS R3,1 
AIS R2,1 
BS SEQ1 
B POUND 
LB R1,CONIN(R2) 
CLHI R1,X*20° 
BES SPCOM1 
CLHI R1,X'2C* 
BES SPCOM1 
AIS 2,1 
BS SPCOM 
BR RC 
LB R1,X°79° 
NHI R41,X'30° 
SRLS R1,4 
BZ BOOTO 
SIS R1,1 
BZ BOOT1A 
SIS R11 
BZ BOOT 2 
B BOOT3 
LIS R1,1 
STH  R1,DRI 
LIS _R1,9 
STH  &1,DRO 
BR RC 
LIS 81,0 
STH  R1,DRI 
LIS R1,1 
STH  R1,DRO 
BR RC 
LIS _R1,2 


O8:35374 O8/17479 


LOAD CHARACTER 
PERIOD ? 
NO EXTENSION 


’ POINT TO EXTENSION CHARACTER 


PACK + CONVERT 
SAVE 

SCALE 

MORE THAN ONE CHARACTER 
RE-LOAD 

SCALE 

MERGE 

STORE 

FIND DELIMITER 
INCRIMENT PAST 
CLEAD FREE FORM BUFFER 
CLEAR COUNT 

READ 

CR 

YES 

STORE 

LOAD FREE FORM COUNT 
DONE 

TOO MANY CHARACTERS 
ICNRINENT POINTER 
INCRIMENT POINTER 
LOOP 

DONE 

LOAD CHARACTER 
BLANK 

YES 

COMMA 

YES 

INCRIMENT POINTER 
LOOP 

RETURN 

LOAD BOOT COMMAND 
REMOVE DRIVE # 
SCALE 

IN=0;0UT=1 
DECREMENT 
IN=1;0UT=0 
DECREMENT 
IN=2;0UT=3 
IN=3;0UT=2 

LOAD ADDRESS 
DRI=1— 

LOAD ADDRESS 
DRO=0 

RETURN 

LOAD ADDRESS 
DRI=0 

LOAD ADDRESS 
DRO=1 

RETURN 

LOAD ADDRESS 


FDL19180 
FDL19190 
FDL19200 
FDL19210 
FDL19220 
FDL19230 
FDL19240 
FDL19250 
FDL19 260 
FDL19270 
FDL19280 
FBL19290 
FDL19300 
FDL19310 
FDL19320 
FDL19330 
FDL19340 
FDL19350 
FDL19 360 
FDL19370 
FDL19380 
FDL19390 
FDL19400 
FDL194810 
FDL19420 
FDL19430 
FDL19490 
FDL19450 
FDL19460 
FDL19470 
FDL19480 
FDL19490 
FDL19500 
FDL19510 
FDL19520 
FDL19530 
FDL19540 
FDL19550 
FDL19560 
FDL19570 
FDL19580 
FDL19590 
FDL19600 
FDL19610 
FDL19620 
FDL19630 
FDL19640 
FDL19650 
FDL19660 
FDL19670 
FDL19680 
FDL19690 
FDL19700 
FDL19710 
FDL19720 


G6-225FO01MN96R01A13 


18588 
485CR 
185ER 
1862R 
1864R 
1866R 
1B86AR 
186CR 
1870R 
1872R 
1876 
187AR 
187ER 
1882R 
1884R 
18388R 
188CR 
1890R 
1892R 
1896R 
189AR 
189CR 
189ER 
1BA2P 
1BAUR 
TRABR 
18AAR 
18AER 
18BOR 
18B2R 
18B6R 
18B8R 
T8BAR 
18BCR 
18BER 
18COR 
18C4R 
18C8R 
18CCR 
18CER 
18DOR 
18D2P 
18D6R 
18DAR 
18DER 
IBE2E 
18E4R 
18E6R 
18EAER 
18ECR 
18EER 
18F OR 
18F2R 
18F6R 
18FAR 


4010 
2413 
4010 
03¢cCc 
2413 
4010 
2412 
40170 
03cc 
41€0 
&71CO 
41CO 
41C0 
2416 
D210 
C830 
D320 
2480 
41D6 
C836 
2421 
2480 
4100 
2484 
4100 
2200 
4818 
2427 
0612 
D320 
9E21 
9D21 
2221 
030D 
2445 
C850 
c8é0 
41EO 
O3GF 
2480 
2400 
D370 
&QOE7 
R100 
4810 
2422 
06142 
D320 
9824 
9E21 
9023 
2081 
c870 
D825 
2652 


0178R 


0176R 


0178R 
01768 
O442R 
13AAR 
181CR 
TT4UAR 
012DR 
1AG6AR 
TAEOR 
126AR 
012AR 
126AR 
126AR 


O170R 


0917R 


O84CR 
0999R 
18CER 


912CR 
0190R 
OB5S2R 
0170R 


00778 


OO7E 
0000 
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1973 
197% 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
19914 
1992 
19993 
1994 
1995 
1996 
1997 
19098 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2926 
2027 


BOOT3 


STARTG 


POUND 


STOP 


WRTBOOT 


WRLRN 


WRLRN2 


WLHL 


®LHL1 


RC,CLRDIS 
RC,LCORE 
RC,FIOD 
RC,SETUP 


R2,TITLES 
R8,9 
RD,FINDCON 
R3,ASTERISK 
R2,1 

R8,0 

RD, FINDCON 
R8,4 

RD, FINDCON 
* 


R1, PRECMDOC R8 ) 
R2,7 

R1,R2 
R2,FLPAD 
R2,R1 

R2,R1 

21 

RD 

R4,5 
R5,BOOTST 
R6,BOOTEN 32+1 
RE, WRLRN 

RF 


R5,R5SAVCOR7) 
RD,RESET 
R1,PRECMDO 
R2,2 

R1,R2 
R2,FLPAD 
R2,R4 
R2,81 
R2,23 

8,1 
R7,126 
R2,5(R5) 
R5,2 


PAGE 
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DRI=2 
LOAD ADDRESS 
DRO=3 
RETURN 
LOAD ADDRESS 
DRI=3 
LOAD ADDRESS 


CLEAR DISPLAY 
INITIALIZE LOW®@ CORE 
SET DRO + DRI 
SETUP DRG AND DRI 
CLEAR FLAG 

STORE 

LOAD ADDRESS 

LOAD SIZE 

SET OUTPUT 

PRINT 

LOAD ADDRESS 
LOAD SIZE 

SET OUTPUT 

PRINT 

SET INPUT 

INPUT DATA 

NG RETURN 

LOAD PRECMD 

LOAD STOP CMD 
MERGE 

LOAD ADDRESS 
COMMAND 

SENSE STATUS 
IDLE NOT LOOP 
RETURN 

LOAD LRN FOR BOOT 
LOAD LOW 

LOAD HIGH 

WRITE LRN 

RETURN 

SET OUTPUT 

CLEAR RETRY COUNT 
GET FLAG 

SAVE RS 

IDLE CHECK 

LOAD PRE-CHD 
LOAD WRITE CMD 
MERGE 

LOAD ADDRESS 


WRITE LRN TO CONTROLLER 


COMMAND 

SENSE STATUS 

WAIT FOR BUSY NOT 
LOAD LOOP COUNT 
WRITE 2 BYTES 
BUMP 


FDL19730 
FDL19740 
FDL19750 
FDL19760 
FDL19770 
FDL19780 
FDL19790 
FDL19800 
FDL19810 


OnY 4n0o9n 
avr PAUL Y 


FDL19830 
FDL19840 
FDL19850 
FDL19860 
FDL19870 
FDL19880 
FDL19890 
FDL19900 
FDL19910 
FDL19920 
FDL79930 
FDL1994&0 
FDL19950 
FDL19960 
FDL19970 
FDL19980 
FDL19990 
FDL29000 
FDL20010 
FDL20020 
FDL20030 
FDL20040 
FDL20050 
FDL20060 
FDL20070 
FDL20080 
FDL20090 
FDL20100 
FDL20110 
FDL20120 
FDL20130 
FDL20140 
FDL20150 
FDL20160 
FDL20170 
FDL20180 
FDL20190 
FDL20200 
FDL20210 
FDL20220 
FDL20239 
FDL20240 
FBL20250 
FDL20260 
FDL20270 
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18FCR 
18FER 
1900R 
1902R 
1904R 
1906R 
1908R 
190CR 
190ER 
1912R 
19168 
19188 
191CR 
1920R 
1924R 
1928R 
192CR 
192ER 
19322 
1936R 
193AR 
193CR 
1940R 
1944R 
1948R 
194CR 
1950R 
19548 
1958R 
195AR 
195ER 
1962R 
1966R 
196ER 
1974R 
197CR 
1984R 
198CR 
1992R 
199AR 
19A0R 
V9A4GR 
19ACR 
19B4R 
19BCR 
19C4R 
19C8R 
19DOR 
19D8R 
19DCR 
19E4R 
19ECR 
19F4P 
19FCR 
TAOUR 


2772 
2244 
O5€5 
228A 
9D23 
2154 
41B0 
030E 
C500 
43B0 
2601 
D370 
4857 
4300 
C540 
4280 
2480 
4100 
C830 
D320 
2480 
41L0 
4300 
41D0 
4300 
41D0 
C830 
D320 
2480 
8100 
4300 
4S4F 
4SuF 
G64F 
4C4F 
4748 
4449 
2046 
4449 
5920 
US4F 
4445 
4520 
494C 
4OUE 
4O4F 
UDY4 
4D44 
ROUF 
4449 
5920 
5252 
4452 
5245 
WF 52 


{8AAR 


0005 
1924R 


012CR 
O190R 
1944R 
0020 

194CR 


T8AAR 
1A06R 
{AES5R 


126APR 
1896R 
18AAR 
18DAR 
IBAAR 
JA22R 
TAE6R 


T26AR 
1896R 
4420 
5620 
5S4E 
5720 
2045 
534B 
554C 
5245 
4655 
4A20 
4645 
UD4ES 
4C4s 
5354 
HE20 
4348 
4CHE 
4E20 
5245 
5245 
4F52 
4956 
R144 


5420 


4849 
4F52 
5445 


SF52 


4956 
#120 
4C20 
4354 


4520 
4354 


4F52 
2045 
4E20 
5820 
5252 


2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2944 
20485 
2086 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 


2061 
2062 
2063 
2064 
2065 
2066 


2067 


2068 


2069 


WBERR 


WBERR1 


WRLRN1 


WRLRN3 


EODERR 
EOVRTNA 


LGHNSG 
TBIGMSG 
EODMSG 
EQJNSG 
MEDHSG 
ILLMSG 


MMFMSG 


RDEASG 


RDOLMSG 


Qa 
a 


98:35:14 O8/17/793 
DECRESENT 

DONE?? 

DONE?? 

NO, LOOP 


' SENSE STATUS 


WRITE ERROR 
STOP 

RETURN 

MAXIMUM 

YES, HARD 
INCRIMENT COUNT 
LOAD FLAG 
RESTORE 85 
CONTINUE 

LRN MAX aaa 
DIRECTORY ERROR 
SET OUTPUT 

STOP 

LOAD ADDRESS 
LOAD SIZE 

SET OUTPUT 
PRINT 

RE-START 

STOP 

CONTINUE 

STOP 

LOAD ADDZESS 
LOAD SIZE 

SET OUTPUT 
PRINT 

RE-START 


C* DIRECTORY READ ERROR ON DRIVE X?* 


LOADER /GENERATOR PAGE 
SIS 87,2 
BNMS WLHL1 
CLAR R6,R5 
BNC WLHL 
SSR R2,R3 
BTC 5,WBERR 
BAL RD,STOP 
BR RE 
CLHI RO,xX'05' 
BFC 11,WBERR1 
AIS RO,1 
LB R7,FLG16 
LDA B5-R5SAV(R7) 
B WRLRN1 
CLHI R&,STSAV 
BL aRLRN3 
LIS R8,0 
BAL R&D,STOP 
LDAI &3,RECMSG 
LB R2,RECMSGS 
LIS 8,0 
BAL RD,FINDCON 
B POUND 
BAL RD,STOP 
B WRLRN2 
BAL RD,STOP 
LDAI R3,DIRER 
LB R2,DIRERS 
LIS 8,0 
BAL RD,FINDCON 
B POUND 
pc C'EOD* 
pc C*EOV NOT FOUND® 
DC C*LOW > HIGH ERROR' 
pc C*DISKETTE FULL’ 
DC C'DIRECTORY FULL' 
DC C* EOS" 
pc C*DEFECTIVE MEDIA‘ 
DC C*ILLEGAL INSTRUCTION' 
DC C* MACHINE MALFUNCTION’ 
DC 
pc C*READ ERROR* 


FDL20280 
FDL20290 
FDL20300 
FDL20310 
FDL20320 
FDL20330 
FDL20340 
FDL20350 
FDL20360 
FDL20370 
FDL20380 
FDL20390 
FDL20400 
FDL20410 
FDL20420 
FDL20430 
FDL2044060 
FDL204506 
FDL20460 
FDL20470 
FDL20480 
FDL20490 
FDL20500 
FDL20510 
FDL20520 
FDL20530 
FDL20540 
FDL20550 
FDL20560 
FDL20570 
FDL20580 
FDL 20590 
FDL20600 


FDL20610 
FDL20620 
FDL20630 
FDL20640 
FDL20650 
FDL20660 


FDL20670 


FDL20680 


FDL20690 
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1A06R 
1A0ER 
4A162 
ATER 
4A22R 
1A2AR 
4A32R 
AZAR 
4A3CR 
4AQRR 
4A4QCR 
JAUER 
4A55R 
1A5ER 
1A66R 
TAGAR 
1A72R 
4A7AR 
4A7CR 
1A84R 
4ABCR 
1AQGR 
TAQCR 
VAA4R 
JAACR 
iABaR 
1ABCR 
TABER 
4AC6E 
4ACER 
JADOR 
4ADSR 
4ADAR 
TADBR 
1ADCR 
VADDR 
1ADER 
1ADFR 


1AEOR 
TAEAR 
1RE2R 


1AE3R 
1AE4R 
TAESR 
VAEGR 
TAE7R 
1AE8R 


57&2 
524F 
55f4 
4956 
8552 
2044 
5269 
8520 
492F 
5220 


wee 


G4 20 
415y 
S4F 
4F44 
454F 
4644 
45£2 
3031 
L644 
Kua 
5245 
4FGE 
4354 
5485 
426F 
2056 
GE GE 
5359 
2049 
5054 


4954 
5220 
5055 
&520 
52uF 
4952 
2055 


4F20 
uP 


5445 
204F 
4420 
5620 
4CR7 
8154 


aca 
5220 
uC4F 
2F50 
4O4uF 
5252 
5S4uE 
ugar 


5354 
HESS 


4320 


1ADDR 


{AE2R 


1AEOR 
VAE3R 


1AE9R 
1AEOR 


4520 
UFUE 
5420 


5220 
4543 
5044 


4552 
204C 


4DS5O 
5645 


4644 


2047 
4F52 


204C 
5230 
4341 
524F 
4E20 
5550 
4444 
§C4H7 


4540 
4552 


4562 
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4552 2070 RECMSG Dc C*WRITE ERROR ON OUTPUT DRIVE’ 
204F 
4452 
uF4E 2071 DIRER DC C*ERROR ON DIRECTORY UPDATE" 
548F 
4154 
S524F 2072 LSERRM DC C*I/GO ERROR ON -LOAD* 
ari 
5420 2073 LERRM DC C*ATTEMPT TO OVERLOAD FDLG‘ 
528C 
4Ca7 

2074 EOV DC C'EOV® 
8545E 2075 TITLE DC C*FDLG GENERATOR RO1* 
2052 
&FG1 2076 FOXS Dc C*FDLG LOADER RO1' 
3120 
5449 2077 RPNSG pe C*RELOCATION/PROTECTION INTERRUPP! 
5445 
894E 
5420 
5259 2078 B3NDYMSG DC C*BOUNDARY VIOLATION' 
5449 
2051 2079 SY¥SQMSG DC C'SYSTEM Q INTERRUPT? 
5255 
524F 2080 S¥CMSG DC C*S¥C ERROR‘ - 

2081 TOF DB x'c' 

2082 CHKERRS DB 12 

2083 GOTHSGS DB 38 

2084 EOQYRTNMS DB 14 

2085 LGHMSGS DB 16 

2086 TBIGMSGS DB 13> 

2087 EODMSGS EQU EOVRTNMS 

2088 EQJMSGS DB 3 

2089 MEDMSGS LB 15 

2090 ILLYSGS CB 19 

2091 MMFMNSGS EQU ILL4SGS 

2092 RDEMSGS [CB 31 

2093 RDLMSGS- DB 10 

2094 RECMSGS DB 27 

2095 DIRERS DB 25 

2096 LSERRHS DB 17 

2097 LERRMS DB 24 

2098 EQVMS EQU EQUMSGS 

2099 RPMSGS EQU RDEMSG 

2100 BNDYMSGS DB 18 

2101 SYSQMSGS EQU BNDYMSGS 

2102 TITLES EQU SYSQMSGS 

2103 SYCHSGS CB 9 


FDL20700 


FDL20710 


FDL20720 


FDL20730 


FDL20740 
FDL207590 


FDL20760 


FDL20770 


FDL20780 


FDL20790 


FDL20800 


FDL20810 
FDL20820 
FDL20830 
FDL20840 
FDL20850 
FDL208690 
FDL20870 
FDL20880 
FDL20890 
FDL20900 
FDL20910 
FDL26920 
FDL20930 
FDL20940 
FDL20950 
FDL20960 
FDL29970 
FDL20980 
FDL20990 
FDL21000 
FDL21010 
FDL21020 
FDL21030 


ww 
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1AEBR 


1AECR 
TAECR 
1AF4R 
1CF4R 


0000 1AEOR 
00 
0000 1AEBR 
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2104 
2105 
2106 
2107 
2108 
2109 
2110 


EOQDERRS 


LNZ8 


PSWSAVA 
REGSAVA 


EQU EQJNSGS 
DB Q 

EQU *-4 
ALIGN 4 

DS 8 

DS 512 

END 


PAGE 
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FDL21040 
FDL21050 
FDL21060 
FDL21070 
FDL21080 
FDL21090 
FDL21100 


Prd 


06-225F01M96R01A13 


FLOPPY DIAGNOSTIC LOADER/GENERATOR 


ASSEMBLED BY CAL 03-066R807-00 


START OPTICNS: 


NO CAL ERRORS 


T=16,ERLST 


NO CAL WARNINGS 


12 PASSES 
ABSTOP 0000 
Ane 9000 
AGAIN 0000 
ASTERISK 0000 
BADIN Ooo 
BIG 0000 
BNDYERR 9000 
BNDYMSG 0000 
BNDYMSGS 06¢0 
BOOTO 0000 
BOOT 1 9000 
BOOTTA 0000 
BOOT1B 0000 
BOOTIC 0000 
BOOT1D 0000 
BOOTIE 0000 
BOOT2 0000 
BOOTS 6005 
BOOTEN16 0000 
BOOTEN32 0009 
BOOTST 0000 
CFFORM 0000 
CFFORM 1 0000 
CHK 16 6000 
CHK ERR 0000 
CHKERRS 0000 
CHKHLS 0000 
CHKHLS1 0000 
CHKLGE 0000 
CHKLGE1 0000 
CHK PGS 0000 
CLI 0000 
CLIECHO 0000 
CLIREST 0000 
CLRDIS 0009 
COM 0000 
COM1 0000 
COMIN 0000 
COMIN1 0000 
COMINP 1 0000 
COML 0000 
CONCHK 0009 
CONIN 60000 
CONL 0000 
CONVB 0000 
CONVB1 0000 


6000 

0002 

1317CR 
O12AR 
SBC2R 
13C2R 
1490R 
1AACR 
TAEOR 
1848R 
O854R 
183AR 
O87CR 
OSBER 
O970R 
OS5AR 
1856R 
73645R 
0992R 
O998R 
O84CR 
OAD2R 
OADER 
OFD8R 
OBGER 
1ADBR 
O2E2R 
OEFCR 
O2F2R 
OFOER 
OAE8R 
12B8R 
OA18R 
OA3ER 
O442R 
0902R 
O90AR 
OSFCR 
OASER 
O24AR 
O294R 
O£36R 
COEQR 
O1ESR 
OS7CR 


OS9OR 


(32-BIT) 


2009 


1240 
1473* 


508 


426 


1992 


1402 


327 


B45 


512 
572 


B44 


1989 


515 
576 


PAGE 


1412 


1426 


519 
580 
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1982 


1448 


523 
584 


1706 


527 
533 
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1918 


531 
592 


1934 


536 


1945 


548 


552 


556 


Cd 
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CONVB2 
CONVB3 
CONVERT 
CP1 


CSEQNUNI 
CSEQNUMO 
CSNI 
CSNPDBP 
CSPI 
D4 
D110 
D11 
D1i2 
D128 
B13 
D114 
B18 
D18A 
D183 
DIA 
D2 
D20 
D21 
B3 
D32 
D320A 
D3208 
D320C 
D320D 
D320E 
D320F 
D4 

DS 
DS16 
D516A 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
00090 
0000 
0090 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0060 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
6000 
0000 
0000 


0592R 
OEB4R 
OBAAR 
OB10R 
OB2CR 
OB18R 
O83AR 
O842R 
OCO6R 
OCA4R 
OCOER 
OD52R 
OC22R 
O0C32R 
OCSOR 
OCA2R 
OCCB8R 
OCCE6R 
OCACR 
ODICR 
OD2ER 
OD4OR 
OBCER 
OCD8R 
O16ER 
016CR 
0168R 
O16AR 
0186R 
ODDAR 
OF52R 
OFS80R 
OFAAR 
1024R 
OFECR 
OFFAR 
OF32R 
OF18R 
OF2AR 
ODCS8R 
ODDER 
OE1ER 


-OEQ2R 


OF22R 
O61CR 
0632R 
O648R 
O65ER 
O674R 
O68AR 
O69CR 
OE28R 
OESOR 
O598R 
O5SAER 
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425* 
420* 
275 
894 
89 3* 
886 
499 
623 
965 
1016 
1015* 
1069* 
1079 
981* 
991* 
4017* 
1030* 


1034 
1054* 
1059* 
1064* 
951* 
1035* 
188 
868 
1107 
1108 
1106 
1100* 
1270 
1226* 
1238* 
1275* 
1186 
1274 
1203* 
1193 
1201* 
1101 
1102* 
1127 
1123 
1124* 
463* 
469* 
475* 
4B1* 
4a7* 
493% 
498* 
1126* 
1252 
427* 


938* 


619* 


968* 
1018* 


1327 
1189 


1195* 


1247 


1707 


1297 


1168 


1243 

955 
1141 
1769 


1699 
1194 


1199 


PAGE 


1337 


1139 
1299 
1257 


1202 
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1256* 
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1294 
1395 


1340 


1438 


1786 


Ww 


DIRER 


DUPE 
ECHOCON 
ENDAD 
ENDDIR 
EOD 
EOD1 
EODERR 
EODERRS 


DAN tied ad 
ECDHSG 


EODMSGS 
EODPT 
EODPTA 
EOJ 
EOJMSG 
EOJMSGS 
EQY 
EQV1 
EOVDIS 
EOVEX 
EOVK 
EOVMS 
EOVPT 
EOQVPTA 
EOVRTNM 
EOVRITNMS 
ERR27 
ERRRDP 


e000 
0000 
0000 
0000 
0000 
0060 
0000 
0009 
0000 
0000 
0000 
0000 
o000 
0000 
0009 
0000 
0000 
0000 
0000 


‘0000 


0000 
0000 
0000 
0000 
0000 
dO66 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
00990 
0000 
0000 
0000 
0005 


OS5SC4R 
OSDAR 
OSFOR 
0606R 
0618R 
OE7CR 
OFDOR 
OEQBR 
OEA4SR 
0338R 
0070R 
1A22R 
TAEGR 
O774R 
O276R 
01786R 
0176R 
OLBOR 
OA26R 
0999R 
OO1F 

TTECR 
1682R 
19628 
TAEOR 


a2nanan 


iSSZR 
1ADDR 
0330R 
O4CAR 
11FER 
19A0R 
1AEOR 
12174F 
166ER 
0348R 
1672R 
1A66R 
TAEOR 


0350R 


O4B2R 
1966R 
TADDR 
OB30R 
0340R 
0130R 
012FR 
1272R 
1288R 
1292R 
1296R 
129CR 
12A6R 
12D6R 
0146R 
1226R 


434 
440 
446 
452 
458 

1146 

4151 

1149 


439% 
445* 
451* 
4S7* 
462* 
1150* 
1248* 
4158* 
1249 
238* 
796 
2071* 
Z2995* 
320 
176* 
1482 
1479 
1086* 
808* 
637 
1007 
1032 
1823* 
496 
495 


387 


1244 
1413 
1414 


1825 
1418 
1419 

365 


1055 
1054 


240* 


140 
225 


1937 


1403 
2064* 
2088* 


2074* 
2098* 
501 


2060* 
2084* 


345 
228 
248 


388 


1968 
1970 


13890 


1412* 


2098 


502 


2087 
357 


390 


1036 


1973 
1975 


1543 


1444 


2104 
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1048 


1978 
13980 


1524 
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Ta 
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EFINDC 
FINDCOR 


FINDDRY 
FINDI 
FINDO 
FIOD 
FLG 16 


FLOOP 
FLPAD 
Fat 

FH2 
FMAXLRN 
FMTA 
FORMAT 
FOXS 
6016 
6032 
GODOIT 
GOTMSG 
GOTMSGS 
HDR 
HDR1 
HDR2 
HDR3 
HDR4 
HDR5 
HDRA 
HIGH 
ID1 
IDLE 
ILLIST 
ILLMSG 
ILLNSGS 
IMPTOP 
InN1 

IN2 
INBUF 


INIT 
INITDIR 
INP1 
INP2 
INP3 
IPDBP 
ISt6 
ISAF 
ISNUMN 
LADC 
LCOM 


0000 
0000 


0000 
0000 
0009 
0000 
0000 


0000 
0000 
0600 
00090 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
9000 
0000 


0000 
0009 
0000 
0000 
6000 
0000 
0000 
0000 


0000 


0000 
000 


4248R 
126AR 


12C8R 
1242R 
1246R 
181CR 
01412CR 


073CR 
0017R 
12E8R 
1300R 
12E0R 
O73AR 
O6AOR 
TATCR 
13D8R 
0994R 
OABER 
ODSAR 
1ADCR 
O3DER 
O3EER 
03FCR 
O4OAR 
O418R 
0426R 
Q3EOR 
0140R 
1366R 
O8ACR 
1418R 
19B4R 
TAE2R 
1CF4R 
O9FER 
OA76R 
OO1AR 


1344R 
1362R 
O224R 
O25ER 
O264R 
O18AR 
O8FCR 
OBCE6R 
OBCB8R 
0001 

O46AR 


4433 
899 
1885 
1477* 
1430 
1428 
129 
56* 
1622 
541* 
45* 
1487* 
1496* 
1098 
535 


1435* 
1057 
1991 
1837 
1432* 
1434* 
1953* 
135 
1667 
545 
878 
1510 
1499 
1485* 
540* 
&99* 
249 


756* 
838 
1085* 
2083* 
337 
297 
302 
307 
312 
317 
292 
982 
1530 
679 
1618* 
2066* 
2090* 


835 
836* 
203 
541 
872 
1156 
1312 
1405 
1517* 
1525* 
169 
168* 
170* 
1307 
693* 
948* 
949* 


336* 


1062 
1995 


1045 


2091 


841 
843 
204 
546 
972 
1159 
1316 
1527 


175 


1313 


1067 
1997 


984 
1687 


908 


1323 


346 
550 
976 
1181 
1359 
1542 


1318 
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1083 
2049 


1043 
1849 


1491 


1350 


500 
554 
1022 
1182 
1360 
1807 


1695 


503 
558 
1025 
1210 
1369 
1821 


BY 98:35:14 


1416 


1195 
2074 


1855 


506 
562 
1028 
1211 
1371 


1421 


1209 
2039 


2002 


510 
566 
1031 
4215 
1385 


08/17/79 


T4H4u5* 


1250 


2020 


514 
579 
1074 
1217 
1386 


1515 


1321 


517 
574 
1119 
1221 
1392 


1637 


1348 


521 
578 
1125 
1222 
1393 


1778 


1551 


525 
58 2 
1133 
1235 
1397 


1846 


1556 


529 
586 
1135 
1236 
1398 


05-225FO1N96RO1A13 


LOOM1B 
LOEGMIC 
LCOAID 
LOOM1E 
LCOM1F 
LCOA2 
LCOAM2A 
LCOMA 
LCONT 
LCORE 
LDBUF 
LDFLS 
LEAVE 
LERR 
LERRS 
LERRES 
LGHMSG 
LGHYSGS 
LIn1 
LIM2 
LIM3 
LI432 
LIM32A 
LIMITS 
LIST 
LNZB 
LOADIT 
Lod 
LPAD 
LPDB 
LPFLG 
LENS 
LSERRM 
LSERRMS 
MATCH 
MAXLRNO 


MEDASG 
MEDMNSGS 


0000 
0000 
0000 
0009 
0000 
0000 
0000 
0000 


aA 
oocs 


0099 
0000 
0006 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
6000 
0000 
0000 
0000 
0000 
0000 
0009 
0000 
0000 
0000 
0000 
0000 
00900 
00900 
6009 
0000 
0000 
0000 
0000 
0000 
6000 
c000 
0000 
0000 
0000 
0000 
9000 
6000 
0090 
0060 
0060 
0000 
0000 
0000 


O8AER 
Of76R 
O474R 
O4E2R 
O4BSR 
O4FSR 
O500R 
04728 


O2FAR 


{3AAR 
O1CE 

OFZDR 
T2DER 
O2DAR 
TAGER 
1AEBR 
1974R 
TJADER 
1532R 
T4EBR 
151AR 
14EOR 
1512R 
14UB4R 
O450R 
TAEBR 
O3CAR 
013CR 
0015R 
O17ER 
012BR 
0144R 
TA3CR 
1AETR 
167CR 
O17CR 
T2COR 
O80ER 
OB1TER 
O51ER 
O99AR 
O9AB8R 
O9D4SR 
O9BER 
O804R 
O3D8R 
O016R 
1424R 
T4SAR 
T44AR 
T446R 
1454R 
132ER 
T9AGR 
TAEIR 
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356 
381 
339* 
321 
344 
348 
382* 


227" 
2106* 
281* 
1044 
1758 
971 
335 
993 
2072* 
2096* 


1166 


618 


785 
787 


395 


760 


1654 


406 


691 
1823 


218 


1322 


1001 
359 
1331 


1335 


431 


1657 


410 


693 
1840 


437 


1660 


442 


695 
1879 


1680 


373 


1511 


1663 
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1987 


1696 


4u9 


724 


455 


O8/17/79 


461 


595* 


4475 


oo Ni i gs ee RF TT TTC LN LITT: OE EN REINS 
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HN32 0000 143AR 1624 1629* 

MMFASG 0000 19C8R 1635 2067* 

MRFMSGS 0000 1AE2R 1634 2091* 

NCPDBP 06000 018CR 98* 1162 1172 1206 1216 1258 1338 1522 

NEW 32 0000 1478R 1630 16438* 

NEXTI 0000 0166R 79* 1128 1245 

NOECHO 0000 OASOR 803 818 822 825* 

NOLP 0000 O4864R 330 334* 

NSLRN 0000 0180R 92* 973 978 1075 1300 1364 

NSLRNA 0000 0182R 93* 980 992 1021 1037 1332 1345 1370 1379 1523 

CKIN 0000 OBC4R 94u7* 950 

P06 0000 0138R 7O* 1909 

P32 0000 0206R 141* 163 468 u74 480 486 492 498 

P516 0000 0358R 138 246* 

P516A 0000 O37ER 258* 278 280 

P5168 0000 O3C4R 272 274 279* 

P516C 0000 036CR 252* 270 432 438 444 4590 456 462 

PS16D 0000 0394R 263 265* 

PACK 0000 153AR 1093 1282 1437 1669 1684 1705* 1902 1908 1974 1922 

PAO2 0000 1592R 1736* 1740 

PAOQ3 0000 159ER 1732 1735 1741* 

PAQY 0000 15A6R 1723 1744 

PAOS 0000 1570R 4¥724* 1742 1757 

PASAD 0000 0012R 41* 174 407 788 806 823 1715 1721 1724 1730 1744 

PASCHK 0000 O556R 400 402 4O7* : 

PAS ECHO 0000 OATER 798 802 806* 

PASL2 0000 0131R 61* 1716 

PASLA 0000 12B0R 1453 1465 14 71* 

PASLAI 0000 O9EER 788* 1472 

PASLAO 0000 1552R 143 146 815 467 473 479 485 491 497 1871 1715* 

PASRD 0000 0133R 63* 147 824 1717 

PASREST OGOO OA4SBR 813 817 823* 

PASWR 0000 0132R 62* 807 1722 

PFAIL 0000 146ER 1627 1631 1644* 1647 1648 

PK1 0000 153CR 1706* 1713 

PK2 0000 1550R 1709 1714* 

POUND 0000 1896R 774 830 900 1058 1063 1068 1084 1411 1417 1422 1516 1643 1704 
1779 1847 1886 1944 1992* 2050 2058 

PR1 0000 1S5DOR 1760* 1765 

PRECNDI 0000 0172R 85* 1896 

PRECMDO 6000 0170R By 875 905 1487 1787 1818 1832 1852 1891 1999 2017 

PRTIBUF 0000 OOSAR 52* 290 295 300 305 310 315 377 394 404 414 505 509 
513 516 520 524 528 532 537 539 542 549 553 557 561 
565 569 573 577 581 585 589 593 622 

PRTCODE 0000 O30CR 210 225* 237 239 241 243 245 

PRTO 0000 15C8R 364 371 378 1758* 

PSWSAVA 0000 1AECR 2108* 

PURETOP 0000 O000R 

QNSG 0000 1600R 1775 1780* 

QUEST 0000 15FOR 860 1096 1284 1289 1292 1357 1431 1440 1676 1679 1697 ° 17694 1775% 
1905 1911 1917 1925 1940 

RO 0000 0000 12* 123 124 125 126 127 177 178 189 181 182 183 144 
184 185 185 187 188 191 193 193 209 224 232 232 233 
236 238 240 242 244 247 248 256 257 259 260 283 285 
323 324 427 433 439 845 451 457 463 469 475 431 437 


we 


we 
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R41 0000 6001 
R2 0000 0002 
R3 00090 9903 
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493 
1445 
1567 
1632 
1823 
2013 

43* 

174 

274 

641 

684 

731 

788 

824 

915 

944 


11483 
1443 
4635 
1698 


595 
1448 
1568 
1633 
1824 
2036 

114 

178 

273 

643 

685 

733 

7396 

861 

916 

S46 
1550 
1708 
1739 
1759 
1854 
1945 
1968 
1995 

115 

150 

250 

429 

633 

710 

768 


597 


599 
1553 
1870 
1635 
1828 


118 


233 


601 
1557 
1571 
1640 
1828 


129 
257 
536 
655 
704 
742 


PAGE 


607 
1558 
1572 
1641 
1829 


131 
259 
597 


639 


763 
749 
B64 
280 
928 
1446 
1622 
1716 
1738 
1763 
1894 
1954 
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639 
1561 
1573 
1641 
1831 


132 
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1562 
4574 
7644 
184¢ 


148 
261 
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6648 
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R4 


R5 


RSSAYV 
R6 


R7 


R8 


R9 


0000 


0009 


0000 
0000 


ocoo 


0000 


0000 


o0c4 


0095 


0190R 
0006 


0007 


0608 


0009 


FLOPPY DIAGNOSTIC LOADER/GENERATOR 


1802 
1938 
16* 
289 
305 
329 
615 
796 
874 
978 
1022 
1108 
4206 
1312 
41364 
1521 
1725 
1753 
2007 
17* 
650 
725 
964 
1004 
1044 
1145 
1201 
1283 
1343 
1398 


1807 
1938 
149 
290 
306 
346 
626 
797 
879 
979 
1023 
17115 
1207 
1313 
1388 
1522 
1731 
1755 
2021 
293 
651 
726 
966 
1013 
1070 
1147 
1210 
1286 
1349 
1404 
1698 
1862 
1928 


1809 
1939 
168 
291 
308 
347 
630 
799 
889 
980 
1025 
1116 
1223 
1318 
1401 
1523 
1733 
1756 
2042 
205 
652 
733 
968 
1015 
1089 
1159 
1215 
1287 
1356 
1438 
1705 
1865 
1929 
1876 
211 
883 
1214 
1339 
1380 
1805 
694 
1135 
1210 
1348 
1806 


340 
1097 
1415 
15604 
1994 

200 

223 

503 

521 


1809 
1944 
172 
293 
308 


1811 
1988 
173 
294 
310 
349 


1037 
1239 


1483 


1783 


332 


1100 
1164 
1222 
1298 


1498 
1799 
1909 
2027 


638 
1119 
1220 
1350 
1391 


982 
4177 
1236 
1672 
1863 


952 
1173 
1438 
1777 
2044 

204 

353 

509 

526 


4042 


1486 
1538 


1791 


334 


1926 
1106 


1800 
1910 
2030 


639 
1125 
1221 
1358 
1392 


983 
1177 
1250 
1673 
1875 


953 
1204 
1453 
1786 
2048 

220 

355 

510 

528 


1933 


283 
303 
320 
607 
723 
868 
972 
1019 
1074 
1179 
1306 
1347 
1509 
1718 
1751 
1838 


644 
705 
934 

1001 

1033 

1125 

1192 

1248 

1322 

1395 

1680 

1821 

1924 


696 
1187 
1320 
1369 
1398 


1131 
1795 
1254 
1688 
2625 


1056 
4265 
1469 
1845 


226 
421 
516 
533 


‘ae 
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RA 


RANGE 
RB 


RC 


RD 


RDEMSG 
RDEMSGS 
RDHL 
RDIO 
RDIRECT 
RDIRECT1 
RDIRECT2 
RDIRERR 
RDIRERR1 
RDLDRGEN 
RDLMSG 
RDLMSGS 
RDLOOP 
RDLRN 


RDLRNE 
RDLRNE1 
RE 


RECMSG 
RECMSGS 
REBO 


0000 


0000 


0000 
0000 
0000 
9000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 
09009 
0000 


0009 
0000 
6000 


QOOA 


O12ER 
OOOB 


cooc 


000d 


19DCR 
TAE3R 
1636R 
O28AR 
1602R 
164ER 
1628R 
1692R 
16AER 
093AR 
19FCR 
1AE4R 
160CR 
16D4R 


1772R 
172CR 
O0OE 


TAO6R 
TAE5R 
O8D2R 


FLOPPY DIAGNOSTIC LOADER/GENERATOR 


537 
557 
574 
591 
1880 
22* 
1006 


538 
558 
575 
593 


540 
1007 
1226 
1463 
1132 

289 

338 

122 

287 

437 

624 
1087 
1267 
1406 
1539 
7900 
1985 

117 

519 


539 
559 
577 
619 


541 
1009 
1257 
1467 
1176 

290 

346 

128 

326 

443 

Bay 
1117 
1278 
1412 
1544 
1906 


121 
523 
584 


aa44n 


1772 
1532 
1885 


2068* 
2099 


954 


1828* 


342 
1205 


199 
1050 
1205 
1315 
1518 
1908 


541 
561 
578 
§21 


542 
1018 
1259 
1782 
1254 

294 

379 

129 

327 

449 

867 
1129 
1280 
1424 
1579 
1912 


176 
527 
588 
14716 
1637 
1991 


958 


354 
1233 


221 
1073 
1212 
1346 
1534 
19174 


1103 


871 
1264 


342 
1077 
7213 
1351 
1537 
1922 


1140 


975 
1305 


354 
1033 
1230 
1352 
1540 
20190 
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547 


1213 


1000 
1309 


869 
1098 
1233 


1363 . 


1545 
2935 


549 
566 
533 
1266 


622 
1069 
1302 
1335 


304% 
1271 
174 
364 
473 
974 
1170 
1327 
1461 
1797 
1966 


322 
552 
899 
1458 
1826 
2016 


1299 


1012 
1315 


871 
1103 
1238 
1366 
4669 
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556 
567 
585 
4273 


961 
1071 
1353 


1295 


1073 
1366 


954 
1118 
1264 
1373 
1684 


1352 


1077 
1383 


958 
1130 
1268 
1383 
1714 


T4474 


1118 
1390 


975 
1140 
1282 
1390 
1829 


1874 
1982 


508 


1662 


41851 
2051 


1731* 


555 
573 
590 
1880 


1006 
1152 
1455 


315 


258 
415 
499 
1972 
1237 
1389 
1533 
1837 
1983 


512 
572 
1067 
1503 
1869 
2053 


1155 


1012 
1158 
1295 


1437. 


1870 
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REDO1 0000 0924R 708 710* 
t REDO2 0000 OS6ER 738 740* 
REDO3 0000 O946R 72u* 744 
REDOBL 0000 0890R 648 650* 
( REGSAVA 0000 1AF4&R 1573 2109* 
RELPROT 0000 1484R 1652* 
RESET 0000 OB52R 902* 1485 1532 1784 1851 2016 
iY REVLEYV 0000 013AR 71* 1915 1928 1929 
RF 0000 OOOF 27* 892 1052 1240 1402 1519 1520 1546 2011 
RLHL 0000 16F2R 1858* 1866 
( RLHL1 0000 16FAR 1861* 1864 
RLRNLOOP 0000 16DER 1851* 1877 
RPMSG 0000 1A8CR 1653 2077* 
( RPMSGS 0000 1AF3R 1652 2099* 
SEQ 0000 176CR 849 1898* 
SEQ1 0000 17E2R 1934* 1943 
( SEQ2 0000 1802R 1936 1944 
SEQ3 0000 17D6R 1920 1930* 
SEQNU# 0000 0136R 69* 951 1023 1038 1039 1051 1341 1343 1344 1903 
( SET 32 0000 02008 137 139* 
SETUP 0000 174AR 130 1887* 1985 
SETUPA 0000 13D2R 1552 1554 1557 1559 1561* 
( SINC 0000 O184R 114* 176 231 322 1109 
SIZEL 0000 0188R 96* 1134 1165 1269 1317 
SN 0000 0194R 105* 289 294 299 304 309 314 
{ SNOR 0000 O1BER 118* 179 234 325 1112 
SPCOS 0000 1806R 1087 1280 1424 1435 1645 1681 1900 1996 1912 193) 1945* 1951 
SPCOM1 0000 181AR 1947 1949 1952* 
( SPIO 0000 0282R 180* 235 
STARTAD 0000 O84CR 28 625* 638 680 715 745 
STARTG 0000 1872R 34 1982* 
( STARTL 0000 O000R 33* 205 212 1183 1188 1642 
STARTL1 0000 01C8R 33 122* 
STDIR 0000 001C 30* 631 962 1150 1353 1531 1783 
€ STDIR4 0000 0018 29* 319 1782 
STOP 0000 18AAR 891 895 1503 1506 1819 1826 1833 1839 1869 1874 1878 1999* 2034 
2045 2051 2053 
{ STOP1 0000 O8E4R 676 68 3* 
STOPA 0000 O8AAR 649 659* 
STOPIT 0000 01B0R 112* 158 268 
( STSAV 0000 0020 32* $8 385 1248 1521 1794 2042 
SULH56 0000 11E£2R 197 339 352 870 974 999 1011 1049 19072 1076 1117 1129 1148 
1154 1157 1170 1174 1224 1229 1232 1237 1262 1267 1304 1308 1314 
( 1361 1365 1372 1382 1389 1399 © 1404* 1490 1533 1536 1539 1544 1785 
1814 
SVCERR 0000 14A8R 1661* 
¢ SVCHSG 0000 1ADOR 1662 2080* 
SVCMSGS 0000 1AEAR 1661 2103* 
SYSQERR 0000 1#9CR 1658* 
¢ SYSQNSG 0000 ABER 1659 2079* 
SYSQHSGS 0000 1AE9QR 1658 2101* 2102 
TBIGNSG 0000 1984R 1065 2062* 
é TBIGMSGS 0000 1ADFR 1064 2086* 
TEMSAY 0000 O18ER 99* 1286 1339 1367 1401 1668 1671 1683 1686 1923 1926 
TERESRQ 0000 0184R 94* 1094 1242 
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THERE 
TITLE 
TITLES 
TOF 
TTY 
TTYAD 
TTY. 
TTYO 
TTYO1 
TTIO62 


TURNOVER 


WBERR 4 
WLHL 
WLHL1 
AR LRN 


ARLBN1 
WRLRN2 
WRLRN3 
WRTBOOT 


0000 
0000 
0000 
0009 
0000 
0000 
0000 
0000 
0000 
6GG6 
0000 
0000 
0000 
9000 
0000 
0000 
0000 
0oco 
9000 
09090 
6000 
00006 
0000 
00090 
0000 
0000 
0000 
0000 


0000 
6000 
0000 
0000 


OD78R 
TA6AR 
TAESR 
VADAR 
Q17AR 
0O014R 
O9F4R 
OB72R 
OB7CR 


enarn 


VbGUA 
O984R 
1098R 
TOAAR 
10D6R 
11AAR 
11COR 
1194R 
11D6R 
11CER 
11C4R 
11368 
112ER 
102ER 
190ER 
1924R 
18EER 
18F6R 
48CER 


1944R 
18DAR 
19&CR 
18BER 


956 
1988 
1989 

363 

89* 
42* 

790* 

405 

918* 


ma" 
> 


739 
1301 
7370 
1329 
1376 
1381 
4382* 
1401* 
1337 
1378 
1355 
1354 

859 
2033 
2037 
2023* 
2026* 
1041 
1534 
2041 
2016* 
1228 
1520 
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1142 


2081* 


804 821 
$15 


916 


1473 
937 


1399* 


1175 
1545 


1050 
1540 


1212 
2010 


1239 
2012* 


1238 1258 


2053* 


08/17/79 


1345 


1351 


1363 


1373 


1400 


i ed on eee 
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PROG= FDLG32 


000000! 


o000000T 
000004T 
0000081 
0000081 


0000101 


0000121 
0000141 
000015I 
0000161 
0000171 
00900181 
0000181 


QOOOTAT 
O0009AI 
QOOOE2T 


ASSEMBLED BY CAL 03-066R07-00 


0000 
0001 
0002 


0003 


0004 
0005 
0006 
9007 
0008 
0009 
OOOA 
0008 
oo00c 
000D 
QOOE 
OOOF 
01CE 
0018 
OO1C 
0O1F 
0020 
81C8 
98C4 


=0001CCI 
=0018CCI 


ay 
Owoon nin & why 


RF 
LDRUF 
STDIRM 
STDIR 
ENDDIR 
STSAY 
STARTL 


DEVTYP 
DEVTYP 


PASAD 
TTYAD 
LPAD 
MBUS 
FLPAD 


* 


(3 


SCRAT 
NORX3 
WIDTH 
SQUEZ 
SQCHK 
CROSS 
IFZ 
PROG 
ELSE 


nonanr 
rave 


ENDC 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


* LABEL INBUF 


* 


INBUF 
PRTBUF 
CONIN 


DS 
DS 
DBS 


2-BIT) 


120 


ADC-2 
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ENDAD-STARTAD+X*314°EX' FFFE® 


27 

28 

31 

32 
STARTL1 
STARTG 
8 

ADC-2 
X*05065° 


X*°0101° 


MUST BE ON A HW BOUNDARY, 


128 
72 
72 


FILLER 


DUMMY 


NOT A FH BOUNDARY 


FDLO9010 
FDLOO020 
FDLO090030 
FDLOOO4O 
FDLO0050 
FDLOOGEO 
FDLO0070 
FDLO0080 
FDLO0090 


Pninnann 
Lea ivu 


FDLO6110 
FDLO0120 
FDLO0130 
FDLOO140 
FDLO0150 
FDLO0160 
FDLO0170 
FDLO0180 
FDLO0190 
FDL00200 
FDL00210 
FDLO0220 
FDLO0230 
FDLO902406 
FDLO0250 
FDLOO260 
FDL00270 
FDLOO280 
FDL00290 
FDLO0 300 
FDLO0O310 
FDL00320 
FDLO0330 
FDLO0340 
FDLOO350 
FDLO00360 


FDL00370. 


FDLO00380 
FDLO0390 
FDLO0400 
FDLOO410 
FDLOO420 
FDLO0430 
FDLOO440 
FDLOO4S50O 
FDLOO460 
FDLOO470 
FDLOO88O 
FDLO04S90 
FDLOOQ500 
FDLOG510 
FDLO0520 
FDLO0O530 


TE LE A EE 
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O0012AI 2A 54 ASTERISK BB cr** FDLOO549 
00012BI 00 55 LPFLG DB x*o° FDLO0550 
00012CI 00 56 FLG16 DB x°O0* FDLO0560 
00012DI 00 57 LDFLG DB x°o° FDLO0570 
00012EI 00 58 RANGE DB x*o° FDLO0580 
00012FI 00 59 F516 DB x‘Q° FDLO0590 
000130I 00 60 F32 DB x'o° FDLO0600 
000131I EE 61 PASL2 DB X°EE* FDLO0610 
000132I A3 62 PASWR DB X*A3° FDLO0620 
000133I A1 63 PASRD DB X*A1* FDLO0630 
0001341 64 CNOP 4 FDLOQ640 
000134IT 000c0 65 DCX 0 DUMMY FDLO0650 
66 * FDLO066C6 
67 * LABEL SEQNUM MUST BE ON A HW BOUNDARY, NOT A FW BOUNDARY FDLO0670 
68 * FDLO0680 
0001361 0000 69 SEQNUM DC x'o* FDLO0690 
000138I 0d000 70 P06 DC X* 0° FDLO0700 
00013AI 0000 71 REVLEV DC x"o° FDLOQ710 
00013CI 0000 72 LOW dC x*o° FDLO0720 
OOO013EI dOA0O 73 DC X°AOQO' FDL00730 
000140I 0000 74 HIGH DC x*o° FDLOO740 
0001421 3FFF 7§ DC K°3FFF®* FDLO0750 
000144IF 0000 76 #=LRNS DC x'0° FDL00760 
0001461 77 ~=FFORM DS 30 FDLO0O770 
000164I 0000 78 Dc x*Q° FDLO0780 
000166I 0000 79° «=NEXTI BC x'o° FDL00790 
0001681 0000 80 CSNI bc X*o° FDLO0800 
OO016AI 0000 81 CSNPDBP DC x*o° FDLO08 10 
00016CI 00CO 82 CSEQNUMO DC x'o°* FDLO0820 
OOOT6ET 0000 83 CSEQNUMI DC x*o° FDLO08 30 
000170I 0000 84 PRECMDO DC x*Q* FDL00840 
000172I 0000 85 PRECMDI DC x°o° FDLO00850 
0001741 0000 86 DIRP DC x*o° FDLOO860 
0007761 0000 87 DRO ibe x*o* FDLO00870 
000178I 0000 88 DRI DC Xx°o° FDLO0880 
QOO17AI 9894 89 TTY DBC xX‘ 986945 FDLO0890 
00017CI Q079C 90 MAXLRNO DC X*79C* FDLO0900 
OOO17EI 0000 91 LPDB DC x"o' FDLO0910 
000180I 0000 92 NSLRN DC x*o° FDLO00920 
000182I 0000 93 NSLRNA be x*o° FDL00930 
000184I 0600 94 TERMNSEQ DC X*o* FDLOO940 
000186I 0000 95 CSPI DC x*o* FDLO0950 
6060188I 0000 96 SIZEI pe x*o* FDLO0960 
O00018AI 0000 97 IPDBP BC X*o* FDL00970 
00018CI 0000 092060 98 NCPDBP ie STSAYV aaa FDLOO980 
0001901T 0000 99 TEMSAY DC x"Oo° FDLO00990 
000192T 0200 100 CNOP 4 FDLO 1000 
101 * FDLO1010 
102 * LABEL RSSAVY MUST BE ON A FW BOUNDARY FDLO1020 
103 * FDLO1030 
000194T 0000 10H RSSAV DCX 0,0 FDLO1040 
0001961 0000 
600198T 5345 SiH#E 554d 105 SN DC C*SEQNUK' FDLO1050 
OOO19ET 3036 4F55 4D20 406 DC C*O6NUM® FDLO01066 
OOOTA4T 4E41 4DUS 107 be C*NAME®* FDLO1070 


™ 


OOOTA8I 
COOTACI 
0001BOI 
OO01B4I 
O001B4I 
Q0001B6I 
0001B8I 
0007BAI 
0001BET 
0001COI 
0001C2I 
90071C4I 
oooTCcaI 
OOO1CAT 
0001CCI 
0001D0I 
0001D2I 
0001D6I 
OO01DAT 
0001DCI 
OOO01TEOL 
OO01TE4T 
0001E8I 
OOO1ECI 
OOC1EET 
OOO1FOI 
OOO1F AT 
0001F8T 
OO01FCI 
*OOC1FET 
0002001 
0002041 
0002061 
OOO20AT 
OO0O20EI 
0002121 
00021761 
QOO2TAI 
00021CI 
0002201 
0002241 
0002261 
0002281 
90022AT 
00022CI 
00022ET 
0062301 
0002341 
0002381 
00023CI 
000240T 
000244T 
*000248I 
OOC24AT 
OOO2KET 


0040 


0080 


B27E 


FF59 
FFS56 


FF4&D 
91DA 
9685 
95B8 


0004 
8082 
FF30 


8160 


FF26 
98ce 
0010 
9396 
FF10 


938C 
FFOF 


OO7F 
000D 
B19A 
0040 
FF70 
0060 


0020 
0023 


=O0044ET 


=00012FI 
=0091301 


=00012DI 


=0013BEI_ 


=0018761I 
=O0017A4KT 


=00027AI 
=00012CI 
=0003641 


=000130I1 
=O01AD6I 


=0015ACI 
=00012AI 


=0015ACI 
=0001331 


=0003D6I 


=O001B4I 


STOPIT 


SINC 


SNOR 


STARTL1 


CONL 


SET32 


P32 


INP1 


COMINP1 


SHI 
CLHI 


N 


X*2201° 


RC, LCORE 
RC,FIOD 
RC,SETUP 
R1,1 
R1,R2 
R2,X°O4* 
DISPLD 
R2,FLG16 
R2,R2 
SET32 


.P516 


R2,2 
R2,F32 
R3,FOXS 
R2,16 
RC,PASLAO 


R3,ASTERISK 


R2,1 
RC,PASLAO 
R3,PASRD 
R1,R3 
R4,0 
R1,R2 
8,1 
R1,R2 
R1,R2 
R2,X*7F°* 
R2,X‘*OD* 
LOADIT 
R2,C°D® 
STOPIT 
R2,X°60° 
COMINP1 
R2,X°20° 
R2,X°23° 


BREAKPOINT 

LOOP 

LOAD DISPLAY ADDRESS 
LOAD INCRIMENTAL CHD 
COMMAND 

RETURN 

LOAD DISPLAY ADDRESS 
LOAD NORHAL CAD 
COMMAND 

RETURN 

CLEAR DISPLAY 

CLEAR 

CLEAR FLAG 

CLEAR FLAG 

SET LOAD FLAG 

STORE FLAG 

INIT LOW CORE 

FIND I/0 

PROCESS PRE-CMDS 
LOAD DISPLAY ADDRESS 
SENSE STATUS 

FALSE SYNC 

USE DISPLAY 

GET FLAG 

SET CC 

SET SERIES 32 FLAG 


SET SERIES 16 FLAS & USE MICRO-BUS 


LOAD FLAG 

SET FLAG 

LOAD ADDRESS 
LOAD SIZE 

PRINT 

LOAD ADDRESS 
LOAD SIZE 

PRINT 

GET READ COMMAND 
COMMAND 

CLEAR 

SENSE STATUS 
BUSY LOOP 

READ DATA 

ECHO DATA 

STRIP PARITY 

CR 

YES, LOAD 
ADDRESS REQUEST?? 
DO BREAKPOINT 
LOWER CASE CHECK 


SKIP 
MAKE UPPER CASE 
POUND SIGH 


FDLO1080 
FDLO1090 
FDLO1100 
FDLO1110 
FDLO1120 
FDLO1130 
FDLO1140 
FDLO1150 
FDLO1160 
FDLO1170 
FDLO1180 
FDLO1190 
FDLO1200 
FDLO17210 
FDLO1220 
FDLO1230 
FDLO1240 
FDLO01250 
FDLO1260 
FDLO01270 
FDLO1280 
FDL01290 
FDLO1300 
FDLO1310 
FDLO1320 
FDLO1330 
FDLO1340 
FDLO1350 
FDLO1360 
FDLO1370 
FDLO1380 
FDLO1390 
FDLO1400 
FDLO14170 
FDLO1420 


FDLO1430— 


FDLO1440 
FDLO1450 
FDLO1460 
FDLO1470 
FDLO1480 
FDLO1490 
FDLO1500 
FDL01510 
FDL01520 
FDL01530 
FDLO1540 
FDL01550 
FDL01560 
FDL01570 
FDLO1580 
FDLO01590 
FDLO1600 
FDL01610 
FDL01620 


we 


aan 
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0002521 
0002561 
*O00025AI 
00025CI 
*0002601 
0002621 
0002641 
0002681 
Q0026AI 
00026EI 
0002701 
0002721 
0002761 
00027AI 
*O00027EL 
0002801 
0002821 
0002861 
O00028AI 
00028CI 
O0028ET 
0002901 
0002921 
0002941 
0002981 
00029CI 
OO0O2A0T 
OOO2A4T 
OOO2A6I 
0002A8I 
OO002ACI 
OOO2AEI 
0002B21 
Oo002B4I 
Q0002B8I 
O0002BCI 
QOO2BET 
0002C2I 
0002C4T 
g002car 
0002CCT 
0002D0I 
0002D4I 
*O0002DAI 
*0002DCI 
*O002DEI 
O002E0I 
O002E4T 
OOO2E8I 
QO002ECT 
*0002F2I 
OOO 2F4I 
*O002F8I 
OOO2FAI 
*000300I1 


43B0 
c520 
2334 
C520 
2134 
1044 
4300 
0812 
41C0 
1144 
0641 
D310 
4300 
4100 
2501 
9810 
4100 
C800 
1104 
9520 
9910 
9400 
0800 
4330 
C400 
4000 
41C0 
2482 
2400 
41E0 
0800 
4230 
0833 
4330 
41C0 
2490 
41E0 
0899 
4230 
D390 
5859 
5869 
F550 
2383 
2186 
230E 
C800 
4300 
CA60 
F560 
2289 
CB60 
2307 
F550 
2383 


FFBY 
0008 


OOSF 


FFCO 


894A 


FDIC 
FFAE 
FF3A 


FF3C 
OAOF 


81C4 
OFFF 
FECE 
81AA 


93B0 


8092 


809C 
8F3A 


946C 


80384 
FE60 
FD50 
FD50 
0000 


§555 
B030 
0080 
0000 


0080 


9000 


=OO020AI 


=0002281 
=OO00BBSI 
=0000121 


=000228T 
=0001B8I 


=0001C2I 


=00045CI 
=00016EI 
=O00044EI 
=00165CI 
=000344T 


=0003541 
=0011F6I 


=00172EI 
=00034CI 
=00012CI 
=0000201 


=0000241 
OOO0OL 


=0003181 


00001. 


1B45I 


163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 


INP2 


INP3 


DISPLD 


SPIO 


RDIO 


COML 


LERR 


CHKHLS 


CHKLGE 
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11,P32 
R2,X"08° 
INP2 
R2,X°5F* 
INP3 

R4,4 

INP1 

R1,R2 
RC,CONVERT 
R4,4 

R4,R1 
R1,PASAD 
INP1 
RD,SINC 
RO,X*FFFF* 
R1,R0 
RD,SNOR 
RO,X*OAOF® 
RO, 4 

R2,R0 
R1,R0 
RO,RO 
RO,RO 

LIST 
RO,X'FFF* 
RO.CSEQNUMI 
RC,CLRDIS 
R8,2 

RO,0 
RE,RDIRECT 
RO,RO 
DERPT 
R3,R3 
EOVDIS 

RC, SULH56 
R9,0 
RE,RDLRN 
R9,R9 
ERRRDP 
R9,FLG16 
R5, INBUF+6(R9) 
R6,INBUF+10(R9) 
R5,STARTL 
11,LERR 
CHKHLS 
CHKLGE 
RO,X°5555° 
PRTCODE 
R6,128 
R6,STARTL 
LERR 
R6,128 
LCONT 
25,LNZB 
LCONT 


PAGE 


YES 

DELETE? ? 

RO 

REMOVE LAST 

LOOP 

SWAP REGISTERS 
CHANGE TO HEX 
SHIFT 

MERGE DATA 

RE-LOAD ADDRESS 
LOOP 

SET INCRIMENTAL 
LOAD FSS 

WRITE DATA 

SET NORMAL 

LOAD PSH CONSTANT 
SCALE 

SET WAIT BIT 

READ DISPLAY 

SWAP DATA 

SET CC 

DISPLAY=0 

REMOVE ANY JUNK 
SET SEQUENCE NUMBER 
CLEAR DISPLAY 

SET INPUT MODE 
CLEAR ERROR RETURN FLAG 
READ DIRECTORY 
LOAD RO 

DIRECTORY ERROR 
SET R3 

WRITE EO¥ 

LOAD R5-R6 

CLEAR ERROR RETURN FLAG 
LOAD PDB 

LOAD R9 

LOAD ERROR 

LOAD 16 BIT FLAG 
LOAD LOW 

LOAD HIGH 

COMPARE LOW TO START 
ERROR 

CHECK H<S 

CHECK LOE 

LOAD ERROR CODE 
PRINT 

ADD MAX EXTRA SIZE 
COMPARE HIGH TO START 
ERROR 

RESTORE 

OK 

COMPARE LOW TO END 
OK 


FDLO1630 
FDLO01640 
FDLO1650 
FDLO1660 
FDLO1670 
FDLO1680 
FDLO1690 
FDLO1700 
FDLO1710 
FDLO1720 
FDLO1730 
FDLO1740 
FDLO1750 
FDLO1760 
FDLO1770 
FDLO1760 
FDLO1790 
FDLO1800 
FDLO 1810 
FDLO 1820 
FDLO18 30 
FDLO1840 
FDLO1850 
FDLO1860 
FDLO1870 
FDLO1880 
FDLO18996 
FDLO1900 
FDLO1910 
FDLO1920 
FDLO1930 
FDLO1940 
FDLO1950 
FDLO1960 
FDLO1970 
FDLO1980 
FDLO1990 
FDLO2000 
FDLO2010 
FDLO2020 
FDLO2030 
FDLO2040 
FDLO2050 
FDLO2060 
FDLO2070 
FDLO2080 
FDLO2090 
FDL02100 
FDLO2110 
FDLO2120 
FDLO2130 
FDLO2140 
FDLO2150 
FDLO2166 
FDLO2170 


ate 


237 225F02¥%91R01A13 


Ovo gogo oo wu 
ed WD wd oo 

Og psy ae a em ND 
m4 


Odo OO oo oO ca 


ia ek ie OO A ek es 


cad lad td ar Ga ad wat dat 


VVEV EY PRR Ly aves 
oe en en Oe 


? 
4 


JOD3TET 
99%3221 
9033261 
0033247 
09932C! 
0063392 
9073321 
O05334F 
0063341 
09%933CI 
00C 3461 
COOsKuT 
0063431 
00034CI 
909359! 
0003541 
0953581 
000 35CT 
3374631 
0003641 
0093661 
9033641 
09935CI 
0093701 
9003747 
0093781 
99937C1 
0053751 
0093521 
0003861 
9093887 
OODP2AT 
OOG345EI 
0O0C330F 
OC5392I 
099396T 
*O0094S9AT 
90039CT 
JO0O3A0T 
OO73A4I 
DOO3A3L 
OO03ACI 
0003301 
0093841 
0003881 
*9003BCI 


4300 
2641 
2450 
4150 
03899 
4230 
C800 
D390 
0899 
4230 
D390 
0899 
4230 
41L0 
9400 
9810 
4100 
4300 
C800 
4300 
C800 
4300 
csco 
4300 
C800 
4300 
c8oo 
4300 
2440 
24crFr 
D2Cc0 
F630 
C820 
4100 
E630 
2421 
41C0 
C830 
9EC3 
9BC1 
41C0 
9EC1 
9A01 
c410 
C510 
2183 
CE10 
C£10 
43BO 
C510 
4330 
C510 
43P0 
c510 
23BA 


FFDA 


9420 


8038 
OOFF 
FE13 


8282 
FEOA 


82FE 
FE88 


FE8A 
FFUA 
DDDD 
FFD4 
14111 
FFCC 
3333 
FFC4 
EEEE 
FFBC 
OOFF 
FRB 


FDC3 
9766 
0010 
849A 
FDAE 


8490 
0092 


8956 


OO7F 
0060 


0020 
0o00D 
B92E 
0040 
FEOU 
0923 
FFCO 
OO5F 


=00C2E0T 


=00172EI 
=00034CI 
=00012FI 


=O000S5A4I 
=0001301 


=00062AT 
=0001BaI 
=0001C2I 
=0002861 
=0003181 
=0003181 
=0003181 
=0003181 
=900318T 
=00012FI 
=001AD6I 


=0008121 
=O00172AT 


=0008 121 


=OO0C3E4I 


=0003D6!r 
=O00T84T 


=9003781 


FLOPPY DIAGNOSTIC 


LCONT 


PRTCODE 


EODPT 


DERPT 


ERRRDP 


EOVDIS 


EQVPT 


P5175 


P516C 


P516D 


LOADER/GENERATOR 
B LERR 
AIS R4,1 
LIS 29,0 
BAL RE,RDLRN 
LDAR R9,RI 
BNZ ERRRDP 
LHI RO,X°FF' 
LB R9,F516 
LDAR 9,89 
BNZ D516 
LB R9,F32 
LDAR R9,R9 
BNZ D32 
BAL RD,SINC 
EXBR R0O,29 
WHR R1,R0 
BAL RD,SNOR 
B SPIO 
LHI RO,X*DDDD* 
B PRICODE 
LHI RO,X*1111" 
B PRTCODE 
LHI RO,X°3333° 
B PRTCODE 
LHI RO,X* EEEE* 
3 PRTCODE 
LHI RO,X‘FF® 
B PRTCODE 
LIS 24,0 
LIS RO,15 
sT3 RO,F516 
LDAI R3,FOXS 
LHI R2,16 
BAL RC,MBO 
LDAI R3,ASTERISK 
LIS R2,1 
BAL RC,4B0 
LHI R3,X'92* 
OCR 20,23 
RDR RO,Ki 
BAL RC,MBSS 
RDR RO,#1 
¥DR RO,R1 
NHI R1V,X°7F° 
CLHI 21,X*°60° 
BL P516D 
SHI R1,XK'20° 
CLHI R&1,X'OD* 
BFC 11,LOADIT 
CLHI R1,C*9* 
BE STOPIT 
CLHI &1,xX*23° 
BFC .11,P516C 
CLHI &1,X°5F* 
BFC 11,7?5168 


08:34:45 98/17/79 
ERROR 

INC LRN TO 1ST OF PROGRAM 
CLEAR ERROR RETURN FLAG 
READ PROGRAM 
LOAD ERROR FLAS 
LOAD ERROR 

LOAD CODE 

LOAD 516 FLAS 
SET cc 

USE MICRO-BYS 
GET FLAG 

SET VCC 

USE PASLA 

SET INCRIMENTAL 
SWAP 

WRITE DATA 

SET NORMAL 

STOP AT INPUT 
LOAD ERROR CODE 
PRINT 

LOAD ERROR CODE 
PRINT 

LOAD ERROR CODE 
PRIN? 

LOAD ERROR CODE 
PRINT 

LOAD CODE 

DRINT 

CLEAR RY FOR INPUT DATA 
SET FLAG 

STORE FLAG 

LOAD ADDRESS 
LOAD SIZE 

PRINT 

LOAD ADDRESS 
LOAD SIZE 

PRINT 

LOAD READ CHD 
COMMAND 

DUMMY RAD 

BUSY aAIT 

READ DATA 

ECHO DATA 

STRIP PARITY 
LOWEE CASE CHECK 
SKIP 

MAK= UPPER CASE 
CR CHECK 

LOAD PROGRA*™ 
ADDRESS REQUEST?? 
DO BSPEAKPOINT 
POUND CHECK 
RESTART INPUT 
DELETE LAST 
REMOVE LAST 


FDLO2180 
FDLO2190 
FDLO2200 
FDLO2216 
FDLO2220 
FDLO2230 
FDLO2240 
FDLO2250 
FDLO2260 
FDLO2270 
FDLO2280 
FDLO2290 
FDL02300 
FDLO2310 
FDL02320 
FDLO2330 
FDLO2340 
FDLO2350 
FDLO2360 
FDL02370 
FDLO2380 
FDL02390 
FDLO2400 
FELO2410 
FDLO 2420 
FDLO2430 
FDLO2440 
FDLO2450 
FDLO2460 
FDLO 2470 
FDLO2480 
FDLO2490 
FDLO2500 
FDLO2510 
FDLO2520 
FDLO2530 
FDLO2540 
FDLO2550 
FDLO2560 
FDLO2570 
FDLO2580 
FDLO2590 
FDLO2600 
FDLO2E106 
FDLO 2620 
FDLO2630 
FDLO2646 
FDLO2650 
FDLO2560 
FDLO2670 
FDLO2680 
FDLO2690 
FDLO2700 
FDLO2710 
FDLO2720 


O€-225FO2N391R 0741 


OOO32RET 
*0003C21 
Q003C4T 
0003C8I 
O003CATI 
0003CCI 
0093D9I 
0003D2I 
0003D6I 
OO0O03DATI 
OOU3DEI 
O003E0I 
QOO3EUT 
0003ES5I 
0003E8I 
OOO3EAT 
OO03ECT 
0003FOI 
OO0O3F4I 
*O0003F6I 
O003F8I 
OOO3FAI 
OOO3FET 
0004021 
*000404T 
0004061 
00048081 
O00040CI 
0004101 
*0004121 
O0004T4T 
0004161 
OOOH TAT 
OOO4 TEL 
*0004201 


000422T © 


o000424uT 
000428T 
00042CI 
*OOO042ET 
0004301 
0004321 
0004361 
OOO43AT 
*00043CI 
OOO4I3ET 
000442T 
O00446T 
OOO4KAT 
OOO44ET 
0004521 
O00454T 
OO0456I 
QOO4S5AT 
00045CI 


FFBA 


FFBY 
OFFF 
BOTE 


FEB 


FDA8 
FCA8 


FDAO 
FCA1 


FD97 
FCAB 


FD8E 
FCBY 


FD8 3 
FCAD 


FDTA 
FC6F 


007B 
0018 
FD2A 
80A0 
FD66 


FD68 


FFEE 


=OOO038AI 
=O0038ATI 
=Q0045CT 


=0002981 


=000198T 
=Q0009CI 


=O0019ET 
=QO000A3T 


=0001A3T 
=O00OBRI 


=0001A8TI 
=0000D21 


=O001ABI 
=0000D9I 


=O000TBOI 
=OOCO0A9I 


=0001741 
=O004EET 
=0001B88I 
=0001C2T 


=OOO4KET 


ad 
rey 
te 
(o) 
ne) 
a) 
re 


P516B 


LOADIT 


4D" 4 


HDR2 


HDR3 


HDR4& 


HDRS 


CLRDIS 


LIST 


LOADER/S 


ENERATOR PAGE 


RC,CONVERT 

R4,4 

R4U,R1 

PS16A 

R4,4 

P516A 

R4,K°FFF! 

LIST 

RO,R4 

COML 

RO,R2 

8,1 

RC 

R4,5 

RB,SNCR4) 

RB, PRTIBUF+2(R4) 
R4,1 

HDRA 

R4,4 
RB,SN+6(R4) 

RB, PRTBUF+9(R4) 
R4,1 

HDR1 

R4,4 
RB,SN+11(0R4) 
RB, PRTIBUFt33(R4) 
R4,1 

HDR2 

R4&,2 
RB,SN+16(R4) 
RB, PRTBUF+S6(R4) 
R4,1 

HDR3 

R4,4 
RB,SN+19(R4) 
RB, PRTBUF+63(R4) 
R4,1 

HDR& 

R4,2 
RB,SN+24(R4) 
RB,PRIBUF+15(R4) 
R4,1 

HDRES 

RB,123 
R4,STDIRM 
R4,DIRP 

LCOM1E 

RD,SINC 

R0,9 

R1,R0 

RD,SNOR 

RC 

RC,CLRDIS 


CHANGE TO HEX 
SHIFT 

MERGE DATA 
READ MOPE 
REMOVE LSD 
READ “O25 
REMOVE JUNK 
LIST FLOPPY 
SWAP REGISTERS 
GO TO COMMON 
SENSE STATUS 
BUSY LOOP 
RETURN 

LOAD COUNT 
LOAD 

STORE 
DECREMENT 
LOOP 

LOAD COUNT 
LOAD 

STORE 
DECREMENT 
Loop 

LOAD COUNT 
LOAD 

STORE 
DECREMENT 
LIO7 

LOAD COUNT 
LOAD 

STORE 
DECREMENT 
LOOP 

LOAD COUNT 
LOAD 

STORE 
DECREMENT 
Loop 

LOAD COUNT 
LOAD 

STORE 
DECREMENT 
Loop 

FOOL PRINT COUNT 
FOOL LRN COUNT ada 
SAVE COUNTER 
PRINT HEADDER 
SET INCRIMENTAL 
LOAD ZERO'S 
CLEAR DISPLAY 
SET NORMAL 
RETURN 

CLEAR DISPLAY 


FRLO2750 
FDLO2760 
FDLO2770 
FDLO2Z780 
FDLO2790 
£DLO2800 
FDLO2810 
FDLO2820 
FDLO2830 
EDLO2840 
FDLO2850 
FDLO2e860 
FDLO2870 
FDLO2880 
FDLO2890 
FDLO29006 


‘FDLO2910 


FDLO2920 
FDLO2930 
FDLO29&80 
FDLO2950 
FDLO2960 
FDLO2970 
FDLO2980 
FDLO2990 
FDLO 3000 
FDLO3010 
FOL03020 
FDLO 3030 
FDLO3040 
FDLO3950 
FDLO3060 
FDLO3070 
FDLO3080 
FDLO3090 
FDLO 3100 
FDLO03110 
FDL03120 
FDLO3130 
FDLO3140 
FDLO3150 
FDLO3160 
FDLO3170 
FDLO3180 
FDLO3190 
FDLO3200 
FDLO3210 
FDLO3220 
FDLO3230 
FDLO3240 
FDLO3250 
FDLO3260 
FDLO3270 


06-225F02N91R01A13 


oo04u60r 
O004GHT 
o00466r 
0004681 
OOO46AI 
*QO0046EI 
0004701 
0004721 
0004761 
OOO4TAIL 
OOOATEI 
o000480T 
000484T 
0004861 
oooksst 
00048CI 
*OOO48ET 
0004901 
OOO49HT 
0004981 
00049CT 
OOO4AOI 
*OOOKA2T 
OOO4AUT 
OOO4ASBI 
OOO4ACT 
OOO4AET 
00943 2T 
*OOO4B4T 
O004uB6! 
OOO4BAT 
OOOUBEI 
O004C2TI 
o004ac4al 
o004cel 
OOO4CAT 
OOO4CET 
0004D21 
O0C4DEI 
OOO4DAT 
O0o4DCI 
OOO4EOT 
OOO4F2T 
OOO4ESI 
OOO4EFAL 
OOOUEET 
OOO4F 2T 
OOO4FUT 
JO0O4FBI 
OOO4FCI 
0005901 
0005041 
0005061 
*QO0S50AT 
00950CcI 


D340 FBB1 
9Du5 
2155 
245F 
D250 FCBD 
2304 
2450 
D2£0 FCBS5 
41CO 83CE 
4300 FF6C 
24B0 
41CO 8D72 
2482 
2490 
#1EO 92A2 
08399 
2333 
4300 FEBB 
484B FBB4 
C540 7000 
4330 8064 
0844 
233E 
4210 BO2E 
47CO 8D4A 
2490 
41EO 927C 
9899 
2333 
4300 FE92 
4300 81F0 
D330 FC69 
0833 
4330 FE94 
2421 
E630 9666 
4100 9150 
4300 FE86 
D330 FC51 
0833 
4330 FESC 
24721 
F630 964E 
41CO0 9138 
4300 FEE 
D330 FC39 
0833 
4330 8032 
C820 0048 
E630 FBOA 
41C0 911E 
26B4 
CS5EO 0O7D 
218C 
4840 FC64 


FLOPPY DIASNOSTIC LOADER/GEN ERATOR PAS 

=000015I 328 LB RG,LPAD 

329 SSR Ra,RS 

330 BIFS 5,NOLP 

331 LIS R5,15 

=00612BI 332 STB R5,LPFLG 

333 B LCOM 

334 NOLP LIS 25,9 
=00012RI 335 STB R5,LPFLS 
=0008481I 336 LCOM BAL RC,CPD 
=OO003EATL 337 B HDR 

338 LCOMA LIS RB,0 
=0011F6I 339 LCOM1D BAL RC,SULH56 

340 LIS R8,2 

341 LIS R9,9 
=00172EI 342 BAL RE,RDLRN 

343 LDAR R9,RY 

344 BZ LCOM1F 
=009034CI 345 B ERRRDP 
=00001CI 346 LCOM1F Ld R4,INBUF+2(88B) 

347 CLHI &4,X*7000° 
=0005041T 348 BE LCO¥42 

349 LDAR 84,84 

350 BZ EOVPTA 
=0004D61 351 BM EODPTA 
=0011F 61 352 BAL RC,SULH56 

353 LIs 29,0 
=00172EI 354 BAL RE,RDLRN 

355 LDAR R9,RY 

356 BZ LCOM18 
=00034CT 357 5 ERRRDP 
=OQ006AET 358 LCON1B B FORMAT 
=000172BI 359 EOVPTA L8 R3,LPFLG 

360 LDAR R3,83 
=00035CI 361 BZ EOYDT 

362 LIS R2,1 
=001B8348T 363 LDAI k&3,TfOF 
=001622I 364 BAL RC, PRTO 
=00035CI 365 B EOVPT 
=00012B1 366 EODPTA LB R3,LPFLS 

367 LDAR R3,83 
=00033CI 368 BZ EODPT 

369 LIS R2,1 
=0017834T 370 LDAI 23,Tf0OF 
=0016221 371 BAL RC,PPeTO 
=00033CI 372 B EODPT 
=00012BI 373 LCOM1E LB R3,LPFLG 

374 LDAR 83,23 
=O0052AT 375 BZ 4BCHK 

376 LHI R2,72 
=OO009AI 377 LDAI &3,?HT3RUF 
=0076221 378 BAL RC,?RTO 

379 LCOM2 AIS RB,4 

380 CLHI RB,125 

381 BL LCOM1C 
=0001741 382 LCOM2A LH R4,DIRP 


ie) 
oF 


7 08:34:45 98/17/72 
LOAD PRINTER ADDRESS 
SENSE STATUS 
EXAMINE OR DU ACTIVE 
SET LP FLAG 
STORE 
GO TO COMMON 
CLEAR LP FLAG 
STORE 
CLEAR PRINT BUFFER 
PRINT HEADDER 
CLEAR RB 
LOAD R5-R6 
SET INPUT FLAG 
CLEAR ERROR RETURN FLAG 
READ 1ST DIRECTORY BLOCK 
LOAD ERROR FLAG 
NO ERRGR 
LOAD ERROR 
LOAD PDB POINTER 
DELETE? 

YES 

SET CC 

EOV FOUND 

EOD FOUND 

LOAD R5-86 
CLEAR ERROR RETURN FLAG 
READ PDB 

LOAD ERROR FLAG 
NO ERROR 

LOAD ERROR 
FORMAT PRINT BUFFER 
GET FLAG 

SET cc 

IGNORE FF TO LP 
LOAD SIZE 

LOAD ADDRESS 
PRINT 

CONTINUE 

GET FLAG 

SET Cc 

IGNORE FF TO LP 
LOAD SIZE 

LOAD ADDRESS 
PRINT 

CONTINUE 

LOAD PRTFLAS 
SET CC 

NO 

LOAD SIZE 

LOAD ADDRESS 

“GO PRINT 
INCRIMENT PRINT POINTER 
DONE 
LOOP 
RESTORE POINTER 


FDLO3280 
FDLO3290 
FDLO3300 
FDLO3310 
FDLO3320 
FDL03330 
FDLO3340 
FDLO3350 
FDLO3360 
FDLO3370 
FDLO3380 
FDLO3390 
FDLO3400 
FDLO3418 
FDLO3420 
FDLO 3430 
PDLO3440 
FDLO3450 
FDLO3460 
FDLO3470 
FDLO3480 
FDLO 3490 
FDLO3500 
FDLO3510 
FDLO3520 
FDL03530 
FDLO3540 
FUL) 3550 
PDBLO3560 
FDLO3570 
FDLO3580 
FDLO3590 
FDLO3&00 
FDLO3610 
FDLO3620 
FDLO3530 
FDLO3640 
FDLO3650 
FDLO 3660 
FDLO3670 
FDLO3680 
FLLO3690 
FDLO3700 
FDLO3710 
FDLO3720 
FDLO03730 
FOLO37460 
FDLO3750 
FDLO3760 
FDLO3770 
FDL93780 
FDLO3790 
FDLO3800 
FDLO3810 
FDLO3820 


Q5-225FO02Z"91R01A13 


GGG5 101 
0005121 
0005761 
QOO51AI 
QOO51EI 
0005221 
0005261 
O0052AT 
O0052EFT 
*000530I 
0005321 
0005361 
OO0053AI 
00053KT 
0005421 
000544T 
0005461 
*OOO54AT 
Q0054CI 
*000550I 
0005521 
000556] 
OOO55AI 
OO0055ET 
0005621 
0005661 
0005681 
00056CI 
0005701 
0005741 
0005781 
00057CI 
0005801 
000584T 
0005881 
*000S58CI 
*O0058ET 
0005901 
900594I 
*000598T 
OO059AT 
ooosgcl 
O00059ET 
O0005A2TI 
OOOSA4T 
*OOOSA8T 
OOOSAAT 
O.OO5AET 
0005B2I 
O0005B6I 
OOOSBAT 
*0005COTr 
0005C2I 
0005C6I 
OOO5CAT 


2654 
4040 
C540 
4220 
4300 
4840 
4300 
D330 
08 33 
2339 
C820 
EA 30 
41C0 
4300 
2422 
9023 
C530 
23BC 
C320 
2129 
C820 
F630 
41C0 
43C0 
D320 
9D23 
C530 
43B0 
C530 
43E0 
C820 
E6 30 
41C0 
4300 
c590 
23B2 
2388 
CA90 
c590 
2182 
2697 
030D 
c890 
2263 
c500 
2129 
D320 
E630 
41C0 
4300 
F500 
2189 
D320 
E630 
41CO 


FOSE 
0020 
FF60 
FE22 
FC4E 
FF55 
FCO1 


0048 
FB60 
B2D4 
FFC2 


0004 
0001 


0048 
F840 
8622 
FFA2 
FAAD 


0004 
FFO4 
o000c 
FFBC 
0048 
FB1A 
9028 
FF7C 
OOOF 


0030 
003A 


0020 
OOFF 


958C 
9448 
825C 
FDBE 
0000 


9574 
94F6 
8244 


=000174T 


=O0047EI 
=O00344T 
=0001741 
=O000480I 
=O00012FI 


=OO0009AT 
=000812T 
=0005041 


=O0009AT 
=O00B80I 
=0005041 
=000013I1 


=000504I1 
=000504T 


=O0009AI 
=001S5ACI 
=0005041 


=001B3AI 
=0019FAI 
=0008121 
=000378I 
EEEE 


=O01B3AT 
=QO1ACOT 
=000812I 


7LOPPY DIAGNOSTIC 


LCORIC 


MBCHK 


CONCHK 


PASCHK 


CONVB 


CONVB3 


CONVB1 
CONVB2 


D516 


D516A 


LOADER/GENERATOX 
ALS RG, 1 
STH P4,DIRP 
CLHI R4,STSAYV 
BT 11,LCOMA 
B DERPT 
Li R4&,DIRP 
B LCOM1D 
LB R3,F516 
LDAR R3,R3 
BZ CONCHK 
LHI R2-72 
LDAI R3,PRTBUF 
BAL RC,"30 
RB LCOM2 
LIS R2,2 
SSR R2,R3 
CLHI R3,X*O4" 
BFC 11,PASCHK 
THI R3,X*O1° 
BP PASCHK 
LHI R2,72 
LDAI R3,PRTBUF 
BAL RC,TTYO 
B LCOM2 
L3 R2,PASAD+1 
SSR R2,R3 
CLHI R3,X'O4' 
BFC 11,LCOMN2 
CLHI R3,X*°OC° 
BFC 11,LCO42 
LHT R2,72 
LDAI R3,PRTBUF 
BAL RC, PASLAO 
B LCOM2 
CLHI R9,X‘F® 
BFC 11,CONVB3 
BFC 8,CONVB2 
AHT R9,X°30' 
CLHI R9,-X"3A° 
BL CONVB1 
AIS R9,7 
BR RD 
LHI R9,X°20° 
BS CONVB1 
CLHI RO,X*FF* 
BTC 11,D516A 
L8 R2,EOQJMSGS 
LDAI &83,E0JHSG 
BAL RC,4BO 
B P516C 
CLAI R0,X"EEEE' 
BTC 11,D5168 
LB R2,20VMS 
LDAI R3,EOQVK 

RC,MBO 


L930? 


DIRECTORY HAS NO EOV OR EOD 


RESTORE POINTER 
L30°> 

LOAD 516 FLAG 
SET CC 

NOT 516(€NO MICRO-BUS) 
LOAD SIZE 

LOAD ADDRESS 

3O PRINT 
CONTINUE 

LOAD CLI ADDRESS 
SENSE STATUS 
FALS&E SYNC CHECK 
NOT CLI 

DY TEST 

CLI IS DY 

LOAD SIZE 

LOAD ADDRESS 

30 PRINT 
CONTINUE 

LOAD TRANSMIT ADDRESS 
SENSE STATUS 
FALSE SYNC CHECK 
NOT PASLA 

DU CHECK 

PASLA Bu 

LOAD ST2Z2 

LOAD ADDRESS 

SO PRIN? 
CONTINUE 


COMPARE TO MAX HEX VALUE 


IK 

NON HEX DIGIT 
COMPENSATE FOR 0-9 
NUMBER EQUALS A-F 
DONE 

COMPENSATE FOR A-F 
RETURN 

LOAD BLANK 

EXIT 

EOJ 

NEXT 

LOAD SIZE 

LOAD ADDRESS 

GO PRINT 

INPUT 

EQV 

NEXT 

LOAD SIZE 

LOAD ADDRESS 

GO PRINT 


FDLO3830 
FDLO3&40 
FDLO3850 
FDLO3860 
FDLO3870 
FDLO 3880 
FDLO3890 
FDLO3900 
FDLO3910 
FDLO3920 
FDL03930 
FDLO3940 
FDLO3950 
FDLO 3960 
FDLO3970 
FDLO3980 
FDLO03990 
FDLO4O30 
FDLO40O10 
FDLO4020 
FDLO4030 
FDLOGO4O 
FDLO4050 
FDLO4N60 
FDLO4O70 
FDLO4OB86 
FDLO4O9G 
FDLO4100 
FDLO4110 
FDLO4120 
FDLO4130 
FDLO4140 
FDLO4150 
FDLO4160 
FDLO4170 
FDLO4180 
FDLO04190 
FDLO4200 
FDLO4&210 
FELO4220 
FDLO4230 
FDLOU2U0 
FDLO4250 
FDLO4260 
FDLO4276 
FDLO42280 
FDLO429¢G 
FDLO4 300 
FDLOU219 
FDLO4325 
FDLO4U339 
FDLOU 345 
FDLO43ES 
FOLO4 36¢ 
FDLO437¢ 


06-225F02"91R01A13 


OO05CEI 
0005D2I 
*O005D6I 
0005D8EI 
0005DCI 
OOO5EOT 
OOOSE4T 
OOOS5E8T 
*QO0O05ECI 
OOOSERT 
O0005F21 
OOO05F6I 
OOO5SFAI 
OOO5FET 
*0006021 
0006041 
0006081 
00060CI 
0006101 
0006141 
*000618I 
OOO6TAT 
00061EI 
0006221 
0006261 
O00062AT 
*O00062ET 
0005301 
000634T 
0006381 
00063CI 
0006401 
*0006441 
0006461 
OOOS4UAT 
OOOS4ET 
0006521 
0006561 
*O0065AT 
00065CI 
0006601 
000664 
0006681 
O00066CI 
*000670I 
000672T 
0006761 
OOO67AT 
OOO6TET 
00056821 
*0006861 
00906881 
00068CI 
000690T 
O00694T 


4306 
C500 
2159 
D320 
E630 
41C0 
4300 
c500 
2129 
D3Z0 
E630 
41C0 
43C9 
c5c0 
21289 
D320 
£630 
41C0 
4300 
C500 
2137 
D320 
E630 
41C0 
4300 
c560 
21B9 
D320 
E630 
41C0 
4300 
c500 
212B9 
D320 
E630 
41C0 
4300 
cs500 
2129 
D320 
E620 
41C0 
4360 
C500 
2189 
D320 
E630 
41C0 
4300 
C500 
21289 
5320 
E630 
41C0 
4300 


FDA6 =000378I1 
3333 


9565 =001B41I 
94B6 =001A961 
B22E =0008121 
FD90 =000378I 


5555 


9550 =001B42T 
94B2 =OO01AA8I 
8218 =000812I1 
FD7A =0003781 
1111 


952F =001B371 
93B4 =90019C0OI 
8202 =000812T 
FD64 -=000378I 
DDDD 


951C =001B3AI 
939A =0019BCI 
81EC =000812T 
FD4E =0003781 
GOFF 


9506 =0012R33AT 
93C2 =0019FAI 
8F70 =O001S5ACI 
FBCA =O00020AI 
EEEE 


Q4UFO =O001B3ATL 
9472 =001ACOT 
8FSA =0015ACT 
FBBY =00020AL 
3333 


SHE =0018411 
9432 =O0TA96I 
8F4H4 =O0015ACI 
FBIE =O0020Al 
5555 


94CC =001B42I 
942E =O0TAA8I1 
8F2E =0015ACI 
FB8B =O0020AI 
1111 


94AB =001R371 
9330 =0019COI 
BF18 =0015ACI 
FB72 =00020AI 


FLOPPY DIAGNOSTIC LOADER/GENERATOR PAGE 
438 B P516C 
439 D515B CLHI R0,X%'3333' 
440 BTC 11,D5176C 
441 LB R2,LSERRMS 
442 LDAI &3,LSERRMN 
443 BAL RC,M8O0 
4gy B P515C 
445 D516C CLHI R0,X*5555" 
446 BTC 11,D516D 
447 L8 K2,LERRAS 
448 LDAI R&3,LERRM 
449 BAL RC,480 
450 B P516C 
$51 D516D CLHI kO,X°1111° 
452 BIC 11,D516E 
453 LB R2,EOVRTNMS 
454 LDAI R&3,E0VRTNM 
455 BAL RC,MBO 
456 B P516C 
457 DS16E CLHI RO,X*DDDD* 
458 BNE DS16F 
459 LB R2,EQODERRS 
460 LDAI R3,EODERR 
461 BAL RC,MBO 
462 DS516F B P516C 
463 D32 CLHI R80,X'FF* 
464 BTC 11,D320A 
465 LB R2,RO0JMSGS 
466 LDAI &3,EOQJMSG 
467 BAL RC,PASLAO 
468 B P32 
469 D320A CLHI RO,X"EEEE® 
470 BTC 11,D320B 
471 LB R2,580VMNS 
a72 LDAI 83,r0V¥ 
473 BAL RC, PASLAO 
474 B P32 
475 D320B CLHI RO,X*3333° 
476 BTC 11,D320C 
477 LB R2,LSERRAS 
478 LDAI &3,LSERRM 
479 BAL RC, PASLAO 
430 B P32 
881 D329C CLHI &20,xX*°5555° 
482 BTC 11,D320D 
433 LB R2,LERRMS 
434 LDAI R3,LERRM 
4Bs BAL RC,PASLAO 
486 B P32 
487 D329D CLHI 20,X"1111° 
488 BTC 11,D320£ 
489 LB R2,EOQVRINAMS 
490 LDAI R3,EOVRTNM 
491 BAL RC,PASLAO 
492 B P32 


982:34:45 IB/17/73 


INPUT 

LOAD STATUS ERROR 
NEXT 

LOAD SIZE 
LOAD ADDRESS 
GO PRINT 
INPUT 
OVERLOAD ERROR 
NEXT 

LOAD SIZE 
LOAD ADDRESS 
GO PRINT 
INPUT 

EOD ERROR 
NEXT 

LOAD SIZE 
LOAD ADDRESS 
PRINT 

INPUT 

FOD ERROR 
EXPANSION 
LOAD SIZE 
LOAD ADDRESS 
PRINT 


LOAD SIZE 
LOAD ADDRESS 
SO PRINT 
INPST 

ROY 

NEXT 

LOAD SIZE 
LOAD ADDRESS 
GO PRINT 
INPUT 

LOAD STATUS ERROR 
NEXT 

LOAD SIZE 
LOAD ADDRESS 
SO PRINT 
INPUT 
OVERLOAD ERROR 
NEXT 

LOAD SIZE 
LOAD ADDRESS 
GO PRINT 


~INPUT 


EOD ERROR 
NEXT 

LOAD SIZE 
LOAD ADDRESS 
PRINT 

INPS 


FDLO4380 
PrDLO4390 
roLOG&OO 
FDLO4410 
FDLO4420 
FOLOU430 
FDLO4GH40 
FDLOL4ESO 
FDLO4460 
FDLO&470 
FDLO4480 
FDLO4490 
FDLO4500 
FDLO4510 
FDLO4520 
FDLO4536 
FDLO4YS4O 
FDLO4550 
FDLO4560 
FDLO4570 
FDLO4&580 
FDLO4590 
FDLO4600 
FDLO4510 
FDLO46E20 
FDLO4630 
FULO4640 
FDLO4650 
FDLO4660 
FDLO4670 
FDLO46806 
FDLO4696 
FDLO4700 
FDLO4710 
FDLO4720 
FDLO4730 
FDLOU740 
FDLO4750 
FDLO4Y760 
FDLO4770 
FDLO4780 
FDLO4790 
FDLO4800 
FDLO4810 
FDLO4820 
FDLO4830 
FDLO4840 
FDLO4850 
FDLO4860 
rDLO4U8706 
FDLO4380 
FDLO4890 
FDLO8&900 
FDLO4910 


FDLO4&920 


t 9 


n 
‘ 
Ko 
mu? 
fei 
wi 
oy 
ho 
Ne) 
aed 
a) 
qo 
ad 
we 
enh 
(ay 
hr} 

r 
[es 
ao 
a) 
Lact 
te] 
ae) 
Pd 
Ga 
ta 
de 
o> 
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| Socssat Ce&ood ORoD 493 D32GE CLHI &O,K* DDDD= ECD ERROR FBLO4936 
i f *O0069CI 2137 494 BNE D320F EXPANSTON PFDLORISE 
QOOOS9ET D320 94698 =O00183AT 495 LB R2,EODERRS LOAD SIZE FDLO43950 

OQO6A2T E630 9316 =O019BCI 496 LDAT &3,E0DERR LOAD ADDRES* FDLO4960 

( OOO6A6I 41CO 8FO2 =0015ACI 497 BAL RC, PASLAO PRINT : FDLO4970 

QOOO6AAI 4300 FR5C =O0020AI 498 D320F B P32 INPUT FDLOU9BO 

OOOGAEIT 41CO 8196 =000848I 499 FORMAT BAL RC,CPD CLEAR PRINT 39 ey FDLO4US9O 

t OO06B2I 4890 F964 =00001ATI 500 LH K9,INBUF LOAD SEQUENCE BEY FDLO5000 

O00636I 4330 FCA2 =00035CI 501 BZ EOVPT EoY FDLO5010 

OOOSBAT 4210 FC9E =00035CI 502 BM EOVPT EOD FDL05020 

{ OOO6BEIT D390 F958 =O0001AI 503 LB R9,INBUF LOAD 15T DIGIT FDL05030 

O0006C2I 41£0 FEC2 =000588T 504 BAL RD,-CONVB CONVERT FDLO5040 

O006C6I D290 FSD4& =O00009ET 505 STB R9,PRTSBUF+4 STORE FDLO5056 

( OOO6CAI D390 F94D =00001BTI 506 LB RO,INBUF+1 LOAD NEXT 2 FDLOE£060 

OOO6CEI 1094 507 SRLS 9,4 REMUVE 3RD FDLO5570 

OOO6D0I 416B0 FEBY =000588I 508 BAL RD,CONVS CONVERT FDLO5080 

t OOO06D4I D290 FIC? =O0009FI 509 sts R9,PRTBUFtHS STOPE FDLO5090 

Q0006D8I D390 F9I3F =00001BI 510 L8 R9, INBUF+1 RELOAD FDLO5100 

OOO06DCI C490 OOOF 511 NHI R9,X°OF' REMOVE SECOND FDLO5110 

( OOO6EOI 41f0 FEAY =000588I 512 BAL RD, CONVB CONVERT FDLO5120 

OCO6ESI D290 FIBB =O000AO0I 513 ST3 R9,PRTIBUF+6 STORE FDLOS130 

OOO6E8I D390 F930 =O00001CI 514 LB R9,INBUFt+2 LOAD 1ST FDLO5140 

( OOOSECI 4100 FE98 =000588TI 515 BAL RD,CONVB CONVERT FDLO5150 

QOOSFOI D290 FSBO =0000A4T 516 ST3 RI, PRTBUF+10 STORE FDLO5160 

OOO6F4I D390 FI25 =00001DI 517 L3 R9,INBUF+3 LOAD NEXT 2 FDLO5170 

t OOO6FSI 1094 518 SRLS 89,4 REMOVE 38D FDLO5180 

OOO6FAI 4100 FE8A =0005881 519 BAL RD,CONVB CONVERT FDLO5190 

QOOO6FET D290 F9A3 =0000A51 520 STB R9,PRTBUF+11 STORE FDLO5200 

( 000702I D390 F917 =00001DT 521 LB R9,TNBUF+3 RELOAD FDLO&219 

0007067 C490 OO00F 522 NHI R9,X°OF® REMOVE 2ND EDLOS226 

OOO70AI 41L0 FE7A =000588I 523 BAL RD,CONVB CONVERT FDLO5230 

{ QOO7OEI D290 F994 =O0000A6I 524 STB R9,PRTBUF+12 STORE FDLO5240 

000712I D390 F969 =O00001FI 525 LB R9,INBUFtS LOAD 1ST+2N)D FDLO525C 

0007161 1094 526 SRLS) R9,4 REMOVE 2ND FDLO5260 

( 0007181 47D0 FE6C =000588T 527 BAL RD,CONVB CONVERT FDLO05270 

00071CI D290 F989 =O000A9T 528 STB R9,PRTIBUFt+15 STORE FDLOS280 

000720I D390 FB8FB =00001FI 529 LB R9,INBUF+5 RELOAD FDLO5290 

t O00724T C490 OOOF 530 NHI R9,X'OF® REMOVE 15T FDL95300 

O000728— 41fO FESC =000588I 531 BAL RD,CONVB CONVERT FDLO5310 

00072CI D290 F97A =O000AAI 532 sT8 R9,PRTBUF+16 STORE FDLO5320 

t 000730I D390 F8EA =O0001EI 533 LB R9,INBUF+4 — LOAD EXTENSION DIGIT FDLOS330 

000734I 1094 534 SRLS R9,4 SCALE FDLO5340 

*000736I 2339 535 BZ FMTA SKIP (FIELD=0) FDLO5350 

t 000738I 41D0 FE&C =0005881 536 BAL RD,CONVB CONVERT FDLO5360 

00073CI D290 F9I6C =Q000ACI 537 STB R9,PRIBUF+18 STORE FDLO5370 
O000740I C8S0 002E 538 LHT 89,C°.° LOAD DECIMAL POINT FDLO5380 
OOO744T D290 F963 =OQOOO0ABI 539 STB R9,PRTBUFt+1I7 STORE FDLO5390 
0007481 24:40 540 FATA LIS RA,O CLEAR RA FDLO5400 
OOO74AL D39A FB8DC =O00002AT 541 FLOOP LB R9,INBUF+16(RA) LOAD FDLO5410 
‘ QOOO7THET D29A FO5E =O0000BCI 542 STB R9,PRTBUF+22(RA) MOVE FDLO5420 
000752I 26A1 543 AIS RA,1 INCRIMENT COUNT FDLO5430 

000754F C5A0 OOTE 544 CLHI RA,30 DONE FDLOS4&40 

t *000758I 2087 545 BTC 11,FLOOP Loop a FDLOS4S0 
OOO7SAT 56390 F8C3 =0000211 546 LB R9,INBUF+7 LOAD 458 FDLO5460 
OOO75EI 1694 547 SRLS R9,4 - REMOVE LOWER  FDLOS470 


™ 
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0007601 
0007641 
0007681 
90076CI 
0007701 
000774T 
0007781 
00077CI 
OOO77ET 
0007821 
000786! 
OOO7SAL 
OOO78ETL 
0007921 
0007961 
OOOTSAT 
00079CI 
OOO7ADI 
OOO7A4T 
OOO7A8I 
OOO7ACI 
0007B0I 
0007B4I 
0007B3I 
0007BAI 
OOO7BEI 
0007C2I 
O0007CE6I 
OOO7CAT 
OOO7CEIL 
0007D2I 
0007D6I 
0007D8T 
0007DCI 
OOOTEOL 
OOO7EUT 
OOO7ESI 
OOO7ECI 
OOO7FOI 
QOOTFAT 
OO007F6I 
OOO7FAT 
OOO7FET 
0008021 
0008061 
OOOBOAT 
OOO80ET 
0008121 
0008T5I 
0008187 
*OOOBTAT 
00081CI 
OO0O81ET 
0008201 
0008241 


410 
D290 
D390 
C490 
4100 
D290 
D390 
1094 
4100 
D290 
D390 
C490 
41500 
D290 
D390 
10394 
4100 
D290 
D390 
C450 
4100 
D290 
D390 
1094 
4100 
D290 
D390 
CHIDO 
41C0 
D290 
D390 
1094 
4100 
D290 
D390 
C490 
4100 
D290 
D330 
1094 
4100 
D290 
D390 
c490 
4100 
D290 
4300 
D300 
2412 
9FO1 
2309 
9DC4 
2081 
DAQ3 
2631 


FE24 
F968 
F8B5 
OOOF 


FE14: 


F959 
FSA6 


FEOS 
FO4C 
F898 
OOOF 
FDF6 
F93D 
F889 


FDE8 
F930 
F87B 
OOOF 
FDD8 
F921 
F86D 


FDCA 
F917 
F85F 
COOF 
PDBA 
F908 
F850 


FDAC 
F8FB 
F842 
OOOF 
FD9C 
F8EC 
F833 


FD8E 
F8DF 
F825 
OOOF 
FD7E 
F8DO 
FCDC 
F800 


0000 


=000588I 
=O000DOI 
=000021I 


=000588T 
=O0000D1I 
=0000221 


=000588I 
=0000D2I 
=0000221 


=000588T 
=0000D31 
=0000231 


=000588I 
=0000D4T 
=000023I 


=0c058e! 
=O0000D5I 
=000025I 


=000588T 
=Q000D9I 
=000025I1 


=000588I 
=Q000DAT 
=0000261 


=0005881 
=OO000DBI 
=0000261 


=0005881 
=0000DCI 
=0090027T 


=0005881 
=0000DDI 
=000027I 


=000588I 
=OO00DET 
=OQOO48EET 
=000016I 


548 
549 
550 
551 
552 


MBO 


MB1 


FLOPPY DIAGNOSTIC LCOADER/GENERATOR 


RD,CONVS 
R9,PRTBUF+54 
R9,INBUFt7 
R9,X°OF* 
RD,CONVB 
29,PRTBUFt+SS 
RO, INBUF+8 
39,4 
RD,CONVB 
R9,PRIBUF+56 
89, INBUF+8 
R9,X'°OF® 
RD,CONVB 
R9,PRTBUF+57 
RO, INBUFt9 
R9,4 
RD,CONVB 
R9,PRTBUF+58 
R9,INBUF+9 
R9,X'OF® 
RD,CONVB 
R9,PRIBUF+59 
R9,INBUF+11 
29,4 

RD, CONVB 
R9,PRTBUF+S5 3 
RO, INBUF+11 
R9,X°OF' 
RD,CONVB 
29,PRIBUF+64 
R9,INBUF+12 
29,4 
RD,CONVB 
R9,PRTBUF+65 
R9,INBUF+12 
K9,X*OF® 
RD,CONVB 
R9,PRTBUF+66 
R9,INBUF+13 
29,4 
RD,CONVB 
RO,PRTBUF+67 
R9,INBUF+13 
R9,X°OF’ 
RD,CONVB 
R9,PRIBUF+68 
LCOM1E 
RO,MBUS 

R1,2 

RO,21 

MB2 

RO,R4 

8,1 

R0,0(R3) 
R3,1 


PAGE 


17. 68:34:45 08/17/73 
CONVERT 
STORE 

RELOAD 
REMOVE UPPER 
CONVERT 
STORE 

LOAD NEXT 2 
REMOVE LOWER 
CONVERT 
STORE 

RELOAD 
REMOVE UPPES 
CONVERT 
STORE 

LOAD LAST 2 
REMOVE LOWER 
CONVERT 
STORE 

RELOAD 
REMOVE UPPER 
CONVERT 
STORE 

LOAD MSB 


CONVERT 
STORE 

RELOAD 
REMOVE UPPES 
CONVERT 
STORE 

LOAD NEXT 2 
REMOVE LOWER 
CONVERT 
STORE 

RELOAD 
KEMOVE UPPEP 
CONVERT 
STORE 

LOAD LAST 2 
REMOVE LOWER 
CONVERT 
STORE 

RELOAD 
REMOVE UPPE® 
CONVERT 
STORE 

RETURN 

LOAD CONSOLE ADDFESS 
LOAD WRITE CD 
COMMAND 

SKIP 

SENSE STATUS 
BUSY LOOP 
WRITE DATA 
INCRIMENT BUPFER POINTER 


FDLOS480 
FOLO5490 
FDLO5500 
FDLO5510 
¥DLO5520 
FDLOS530 
FDLO5540 
FDLO5550 
FDLO5560 
FOLO5570 
FDLO5580 
FOL05596 
FELO5600 
FDLO5510 
FDLO5620 
FDLO56&£30 
FDLO56é40 
FILOS650 
FDLO5650 
FDLO5670 
FDLO5680 
FDLO5690 
FDLO5700 
FDLO5710 
FDLO5720 
FDLO5730 
FDLO5740 
FDLI5750 
FDLOS760 
FDLO5770 
FDLO5789 
FDLO5790 
FDLOS8900 
#0L05810 
FDLO5320 
FDLO5830 
FDLOS840 
FDLO5850 
FDLO5860 
FDLO£870 
FDLO5880 
FDLOS5890 
FOLOS900 
FDLO£910 
FDLO5920 
FDLO5930 
FDLOS940 
FDLO5950 
FDLO5960 
FDLO5976 
FOLOS980 
FDLOS990 
FDLO6000 
FDLO6010 
FDLO6020 


om 
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0008261 
*000828T 
0006 2AT 
00082CIT 
O00082EI 
0008 30T 
0008321 
0008341 
0008361 
0008381 
0098 3AI 
00083CI 
0008 3ET 
OOD84OT 
0008421 
000844T 
000848T 
00084CI 
0008501 
0008521 
*000856I 
0008581 


OOO85AI 
00085SCI 
OO08S5EI 
0008601 
0008621 
000866! 
O0086AI 
OOO86EI 
0008721 
0008761 
OOOB7AT 
OOO87EI 
000882I 
0008861 


OOOS8B8AT 
od008sCI 
OOOBS8ET 
000892T 
000894T 
0008961 
000898T 
OOOS9AT 
00089CI 
OOO089ET 
OOOSA2T 
OOOBA6I 
OOO8BAAT 
OOO8AET 
0008801 
00088 2T 
OO08BYT 


2721 
2036 
o3cc 
241D 
9D04 
2081 
901 
241A 
9RO4 
2081 
9A01 
2511 
9DO04 
2081 
9A01 
4300 
C890 
C8A0 
2791 
D2A9 
2033 
030C 
0000 
2440 
2303 
4000 
4010 
4040 
C840 
D310 
D320 
C420 
C620 
C850 
C860 
CB60 
CA60 


9D13 
2081 
D915 
2652 
0565 
2286 
9D13 
2152 
230E 
C850 
4050 
caso 
40£0 
9E12 
9013 
2291 
4300 


FFD4 =00081CI 
0049 
9020 


FB44 =O0009AT 


OBS5SAT 


0022 
oo1C 
0978 
0079 
0030 
00C7 
ooDO 
O9A7I 
O85AI 
00DO0 


0000 


D500 
0050 
OOCF 
0052 


FLOPPY DIAGNOSTIC 


603 
504 
605 
606 
607 


MB2 LIS 


CPD LHI 


CPD1 SIs 


STARTAD EQU 
BOOTST LIS 


BOOT1 STH 


AHT 
* LOAD REST OF 
BOOT1B SSR 


REDOBL LHI 


ENERATOR PAG 


tay 


29,1 
RA,PRTBUF(R9) 
CPD1 


R6,STARTAD 
R6,X°DO" 
BOOTLOADER 
R1,23 

8,1 
R1,0(R5) 
R5,2 

R6,R5 

BOOT 1B 
R1,83 
5,REDOBL 
STOPA 
R5,X°D500° 
R5,X°50° 
R5,X°CF 
R5,X°52° 
R1,R2 
R1,23 

2-1 
X¥*4300° 


RETURN 

LOAD CR 

SENSE STATUS 
RUSY LOOP 

WRITE DATA 

LOAD LE 

SENSF STATUS 
BUSY LOOP 

WRITE DATA 

LOAD NULL 

SENSE STATUS 
BUSY Loop 

ARITE DATA 

SKIP 

LOAD 29 

LOAD ASCII 8LANK 
DECREMENT COUNT 
CLEAR 

Loop 

RETURN 


LOAD 
SKIP 


REGISTER SAVE POINTER(16BIT) 
LOAD DIRECTORY LRN aad 
LOAD DEVICE ADDRESS 

LOAD BOOT CHD 

REMOVE DRIVE # 

SET STOP CHD 

LOAD START 

LOAD END 

FIND REAL SIZE 

ADD IN R2EAL BIAS 


SENSE STATUS 

WAIT FOR BUSY NOT 
READ DATA 

BUMP 

DONE?? 

NO, LOOP 

SENSE FINAL STATUS 
RETRY BOOT LOAD 
STOP BOOT LOAD 
SETUP 

AUTOLOAD 
PARAMETERS 

ON ERROR 

STOP 

SENSE STATUS 

IDLE NOT LOOP 
JUMP TO 


FDLOS6C30 
FDLO6040 
FDLO6050 
FDL06060 
FDLO6070 
FDLO5080 
FDL06090 
FDLO6100 
FDLO5110 
FDLO6120 
FDLO6130 
FDLO6140 
FDL06150 
FDLO6160 
FDL06170 
FDLO6180 
FDLO6190 
FDLOF200 
FDLO6210 
FDLO6220 
FDLO6230 
FDLO6240 
FDL06250 
FDLO6260 
FDL06270 
FDL06280 
FDL06296 
FDLO6300 
FDLO4 3216 
FDLOv 329 
FDLOF330 
FDLO6 340 
FDLO6 350 
FDLO6 360 
FDL06370 
FDLO6380 
FDL06390 
FDLO06400 
FDLO65410 
FDLO6420 
FDLO5430 
FDLO6440 
FDLO6450 
FDL06460 
FDL06470 
FDLO6480 
FDLO6490 
FDLO5500 
FDL06510 
FDLO6520 
FDL06530 
FDLO6540 
FDLO5550 
FDLO6560 
FDL06570 


mr. 
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O008B6I 
OOosRBI 
OO0O8BAI 
0008BCT 
OOOSBEI 
0008C2I 
0008CéI 
0008C8T 
OO08CAI 


0008CCI 
O0O8CEI 
0o008DOI 
oo008sD4al 
0008D6I 
0008D8I 
OOO8DAT 
0008DCI 
OOO08DET 
OOO08EOL 
OOOB8E2I 
OOO8E4T 
OOO8ESI 
OOOBECI 
OO00S8FOI 
0008F2I 
OOO8F4l 
OOO08F6I 
0008 FBI 
OOOSFAIL 
OOO8FEI 
0009001 
0009021 
000904T 
0009081 
ODQOIOAT 
O00390EI 
000910 
0009T4T 
0009181 
OOO9ITAT 
000917CI 


OOOSTET 
0009201 
0009227 
0009261 
0009281 
OO0O92AT 
00092CI 
00092EI 
0009301 
0009321 
0009341 
0009361 


0050 
9E12 
9P143 
2221 
F650 
E660 
92874 
2726 
9E12 


9D13 
2081 
D915 
2AE2 
0565 
2286 
9D13 
21£2 
230A 
2626 
9E12 
E630 
CB30 
CA30 
0363 
2626 
9E12 
9D13 
2221 
C840 
OA4& 
2115 
2470 
4840 
2304 
48 40 
2472 
E650 
E660 
98174 
2726 
9E12 


9D13 
2081 
D915 
2652 
O5€5 
2286 
9D13 
2152 
230C 
2626 
9E12 
9D13 


01CE 
O1EE 


0006 


FFD2 =OOO08BAI 
O85ATI 
0080 


4000 


01D4 
01D0 


O1CE 
O24D 


0000 


658 
659 
660 
661 
662 
663 
664 
665 
666 


£e" 
our 


668 
669 
670 
671 
672 


cc 
STOPA CCR 
IDLE SSR 

BFBS 

LDAI 


REDO AIS 


STOP 1 AIS 


IS16 LH 

COM LDAI 

COM1 WHR 
OCR 


* READ PDB 
BOOT1D SSR 


REDO1 AIS 
OCR 
SSR 


FLOPPY DIAGNOSTIC LOADER/GENERATOR 


X*50° 
R1,R2 
R1,83 


-2e1 


R5,LDBUF 
R6,LDBUF+32 
R1,R4 

R2,6 

R1,R2 

Y 


R1,83 
8,1 
R1,0(R5) 
R5,2 
R6,R85 
BOOTIC 
R1,R3 
5,REDO 
STOP 1 
R246 
R1-R2 
R3,IDLE 
R3,STARTAD 
R3,X%°80° 


271 
R4,X*4000° 
R4,R4 

IS16 

R7,0 

R4, LDBUFt6 
COM 
R4,LDBUF+2 
R7,2 
R5,LDBUF 
R6,LDBUF+127 
R1,R4 

R2,6 

R1,R2 


R1,23 
8,1 
R1,0¢€R5) 
R5,2 
R6,R5 
300T1D 
R1,R3 
5,REDO1 
RDLDRGEN 
R2,6. 
R1,R2 
R1,83 


08:34:45 38/17/79 
AUTOLOAD &€ RETRY 

STGP BOOT LOAD 

SENS=# STATUS 

IDLE NOT LOOP 

LOAD START 

LOAD END 

WRITE LRN TO CONTROLLER 
CHANGE STOP TO PEAD - 
READ 


SENSE STATUS 

WAIT FOR BUSY Not 

READ DATA 

3UMP 

DONE?? 

NO, LOOP 

SENSE FIYAL STATIS 
ERROR RETRY 

ISSUE STOP 

CHANGE READ TO STOP 
STOP 

GET BRANCH ADDRESS 

GET SIZE 

ADD IN REAL CORPECTED 8ITAS 
BRANCH 

CHANGE READ TO STOP 
STOP 

SENSE STATUS 

IDLE NOT LOOP 

LOAD TEST DATA 

DOUBLE 

16 BIT MACHINE 

SET 32 FLAS 

LOAD 32 BIT PDB POINTER 
SKIP 

LOAD 16 BIT PD3 POINTER 
CLEAR 32 FLAG 

LOAD START 

LOAD END ; 

WRITE LRN OF PDR TO CONTROLLER 
CHANGE STOP TO 2EAD 
READ 


SENSE STATUS 

WAIT FOR BUSY NOT 
READ DATA 

BUMP 

DONE?? 

NO, LOOP 

SENSE FINAL STATUS 
ERROR RETRY 

READ PROSRAM 
CHANGE READ TO STCP 
STOP 

SENSE STATUS 


FDLO6580 
FDLO&590 
FDLO6600 
FDLO06610 
FDLO6620 
FDLO6630 
FDLO66490 
FDIL06650 
FDLO6660 
FDLG6676 
FDLO6680 
FDL06690 
FDLO6700 
FDLO67106 
FDLO6720 
FDLO6730 
FDLO6740 
FDLO6750 
FDLO6760 
FDLO6770 
FDLO6780 
FDL06790 
FDLO6800 
FDL06810 
FDLO6820 
FDLO06830 
FDLO6840 
FDLO6850 
FDLO6860 
FDLO6870 
FDLO6880 
FDLO6890 
FDLO6900 
FDLOE9IT0 
FDLO6920 
FDL06930 
FDLO6946 
FDLO06950 
FDLO6960 
FRLO6970 
FDL06980 
FDLO6996 
FDLO7000 
FDLO79010 
FDLO7020 
FDLO7030 
FDLO70480 
FDLO7950 
FPLO7060 
EDLO7970 
rDLO7080 
FDLO7090 
FDLO7100 
FDLO7110 
FDLO7120 


O65-225FO2N97RG1A43 


Goug sel 
OO093AT 
OOOS3ET 
00039421 
0009461 
000948I 
QOOI4AT 
O0094CT 
OOO94ET 
0009501 
0009521 
0009541 
0009581 
00095CI 
000960I 
0009641 
000966! 


0009681 
OOO096AT 
00096CI 
0009701 
0009721 
000974T 
000976. 
0009781 
00097AI 
00097CI 
OOO097ETI 
ago00980I1 
0009821 
0009847 
0009881 
00098CT 
0009901 
00099 2T 
O00994T 
000996. 
000998T 
QOOS9AT 
*00099CI 
QOOO99ET 
OOO9AOL 
OOO9A2T 
OOO9A4T 
OOOSA6I 


OOO9A8I 
OOO9ACI 
OO0O0S9BOI 
OO0O9B2I 
0009BaT 
QO009B6I 
O0009BBI 
OOO9BAT 


2221 
F630 
CB30 
CA30 
0303 
2626 
9E12 
9D13 
2221 
2726 
2641 
4850 
4050 
4050 
48 €0 
9814 
9F12 


9D 13 
2081 
D915 
2652 
OSES 
2286 
9D13 
2152 
230C 
2626 
9E12 
9£13 
2221 
E630 
CB 30 
CA30 
0303 
2626 
9E12 
9D13 
2221 
0877 
2333 
4300 
6000 
4300 
4900 
60C0 
09Cc0 
D310 
C800 
SE10 
93812 
2430 
9D 142 
2081 
9B12 


FFD2 =0909101 
O8Sat 
0080 


01D6 
8044 =O0009A0I 
8046 =O0009A6I 
O1DA 


0000 


FFCC =000954I 
OSSAT 
0080 


O9ATI 
F66A =000016I1 
0092 


FLOPPY DIAGNOSTIC 


713 
714 
715 
716 


LOADER/GENERATOR PAGE 

BFBS 2,1 

LDAIT &3,C0% 

SHI R3,STARTAD 

AHI R3,X°80° 

BR R3 
RDLORGEN AIS R2,6 

OCR R1,R2 

SSR R1,83 

BFBS 2,1 

SIs R2,6 

AIS R4,1 
REDO3 LH R5,LDBUF+8 

STH RS,BOOTEN16 

STH R5,B00TEN32 

4 R6,LDBUF+12 

dR R1,R4 

CCR R1,R2 
* READ LOADER/GENERATOR PROGRAM 
BOOTTE SSR R1,83 

BT8S 8,1 

RH R1,0(R5) 

AIS R542 

CLAR R6,85 

BNCS BOOTIE 

SSR R1,R3 

BTFS 5,REDO2 

BS TURNOVER 
REDO2 AIS R2,6 

OCR R1,R2 

S3R R1,23 

BFBS 2,1 

LDAI R&3,REDO3 

SHI R3,STARTAD 

AHI R3-X*°80° 

BR R3 
TURNOVER AIS R2-6 

CCR R1,R2 

SSR R1,R3 

BFBS 2,1 

LDAR R7,R7 

Bz GO32 

DC K°4300° 
BOOTEN16 DC X*6000° 
GO32 be X*4300° 

bc X¥*4900° 
BOOTEN32 DC x¥*6000° 
ENDAD EQU =f 
MBI LB R1,M38US 

LHI RO,X*92° 

OCR R1,R90 

RDR R1,R2 

LIS R3,9 
MBI1 SSR R1,R2 

BIBS 8,1 

RDR R1,22 


03:34:45 38/77/75 


LDLE NOT Loop 

GET BRANCH ADDRESS 

GET SIZE 

ADD IN SEAL CORRECTED BIAS 
BRANCH 

CHANGE READ TO STOP 

STOP 

SENSE STATUS 

IDLE NOT Looe 

CHANGE STOP TO READ 
INCRIMENT LRN TO PROGSAH 
LOAD LOW 

STORE TRANSFER 

STORE TRANSFER 

LOAD YIGH 

WRITE LPN CF PROGRAM 
READ 


SENSE STATUS 

WAIT FOR BUSY NOT 
READ DATA 

BUAP 

DONE?? 

NO, LOOP 

SENSE FINAL STATUS 
ERROR RETRY 
TURNOVER CONTROL 
CHANGE READ TO STOP 
STOP 

SENS: STATUS 

IDL= NOT LOOP 

GET BRANCH ADDRESS 
GET SIZE 

ADD IN REAL CORRECTED BIAS 
BRANCH 

CHANGE READ TO STOP 
STOP 

SENSE STATUS 

IDLE NOT LOOP 

LOAD 32 FLAG 

JUMP TO 32BIT START 
BRANCH TO 

16 3IT START 

BRANCH TO 

CRX3 TYPE) 

32 3IT START 


LOAD ADDRESS 
LOAD READ CMD 
COMMAND 

DUMMY READ 
CLEAR &3 
SENSE. STATUS 
BUSY LOOP 


“READ DATA 


FDLO/130 
FDLO7140 
FDLO7150 
FDLO7160 
FDLO7170 
FDLO7180 
FDLO7190 
FDLO7200 
FDLO7210 
FDLO7220 
FDLO7230 
FDLO7240 
FDLO7250 
FDLO7260 
FDLO7270 
FDLO7280 
FDLO7290 
FDLO7300 
FDLO7310 
FDLO7320 
FDLO7330 
FDLO7340 
FDLO7350 
FDLO7360 
FDLO7370 
FDLO7380 
FDLO7390 
FDLO7400 
FDLO7410 
FDLO7420 
FDLO7430 
FDLO7440 
FDLO7450 
FDLO7460 
FDLO7470 
FDLO7480 
FDLO74&90 
FDLO7500 
FDLO7510 
FDLO7520 
FDLO7530 
FDLO7540 
FDLO7550 
FDLO7560 
FDLO7570 
FDLO7580 
FDLO7590 
FDLO7E00 
FDLO7610 
FDLO7620 
FDLO7630 
FDLO7640 
FDLO7650 
FDLO7660 
FDLO7670 


06-225FO2N91R01A13 


0009BCI 
OOO9BET 
0009C2I 
*0009C6I 
9o009csl 
0O09CCI 
O0009DOI 
Ooo9gDal 
0009D6I 
*OOO9DAT 
OOO9DCT 
OOO9DET 
Q0009E2I 
OOO9E6I 
OOO9EAL 
OOO9IEET 
OOO9FOI 
OOO09F4I 
OOO9FSI 
*OQOO9FATL 
OOOSFCI 
*OOOAOOI 
OQOOAO2I 
OO0A06I 
OOOAOAI 
OOOAOCI 
OOOADET 
JOOATOT 
0O00A12I 
OO0A16I 
*OOOA18I 
OOOATAT 
*QOOAICT 
OOOATEL 
*OO0A20T 
OOOA22TI 
OOOA26I 
*OOOA2AT 
OOOA2CI 
OOOA301 
OODA34I 
OOOA36T 
OOOA33i 
OOGA3AI 
OOOA3EI 
*O00A40I 
OOCA4K2T 
*O00A44T 
OOOA4E6I 
*OOOA4BT 
OOOA4AT 
OOSA4CT 
OOOAUET 
OOOASOL 
*OOOASA4T 


9A 12 
C&20 
C520 
2183 
CB20 
C520 
43B0 
0822 
C520 
21248 
2731 
4300 
D223 
c520 
4%3B0 
2631 
C530 
4280 
242D 
220C 
D310 
2305 
D310 
DE 10 
2430 
$B12 
2081 
9B12 
D340 
2741 
2334 
2741 
2335 
2742 
2336 
4360 
DE10 
23C5 
D310 
DE10 
ST 14 
2981 
9A12 
D340 
2741 
2338 
2741 
2334 
2742 
2337 
23CA 
9D14 
2681 
DE10 
23¢5 


007F 
0060 


0020 
0023 
BFIC 
OO5F 
FFD& 
P6FC 
000D 
8OAE 
0031 
FFBE 
F612 


F60E 
F771 


FOPFA 


8038 
F750 


F5E3 
F6FE 


FSD2 


F727 


=0018FO0I 


=0009B6I 
=0000E2T 


=OO0O0A9CI - 


=0009B6I 
=0000121 


=000014I 
=00017BI 


=0000101 


=O00A5ET 
=00017AI 


=000013T 
=000132I1 


=0000101 


=00017BI 


MBI 3 


MBI2 


PASLAI 


TTYI 


COMTN 
In 


CLIECHO 


PASECHO 


ECHOCOM 


CLIREST 


FLOPPY DIAGNOSTIC LOADER/GENERATOR 


R1,22 
R2,X*7F* 
R2,X%°60° 
MBI3 
R2,X°20° 
R2,X°23° 
11, POUND 
R2,R2 
R2,X*5SF* 
11,4BI2 
R3,1 
MBI1 


R2,CONIN(R3) 


R2,X*OD°* 
11,GODO0IT 
R3,1 
R3,49 
MBI1 
R2,13 
HBI2 
R1,PASAD 
COMIN 
R1,TTYAD 
R1,TTY+1 
23-90 
R1,R2 
71,22 
R4,DEVTYP 
R4,1 
PASECHO 
R4,1 
CLIECHO 
R4,2 
PASECHO 
NOECHO 
R1,TTY 
ECHOCOM 


R1,PASAD+1 


R1,PASWR 
R1,R4 
8,1 
R1,X2 
R4,DEVTYP 
24,1 

PAS EST 
R4,1 
CLIREST 
R4,2 
PASREST 
NOECHO 
R1,24 
B,1 
R1,TTY+1 
NOECHO 


08:34:45 38/17/79 


ECHO DATA 
STRIP PARITY 
LOWER CASE CH 
SKIP 

MAKE UPPER CASE 
POURD SIGN 

RECYCLE 

RELOAD DATA 

DELETE 

Nd 

DECREMENT INPUT COUNT 
CONTINUE 

STORE DATA 

CR 

EXECUTE 

INCRIMENT INPUT COUNT 
DONE 

NO 

ENTER CR 

APPEND CE 

LOAD ADDRESS 

SKIP 

LOAD ADDRESS 

SET READ ¥OO2 

CLEAR R23 

SENSE STATUS 

BUSY LOOP 

XEAD DATA 

SET DEVICE TYPE 
DECREMENT 

PASLA 

DECREMENT 

CLI 

DECREMENT 

PASLA 

SKIP 

TURN LINE AROUND 
SKIP 

GET WRITE ADDRESS 
TURN LINE AROUND 
SeNSk STATUS 

WAIT FOR BUSY NOT 
ECHO DATA 

GET DEVICE TYPE 
DECREMENT 

RESTORE READ ADDRESS 
DECREMENT 

TURN LINE AROUND 
DECREMENT 

RESTORE READ ADDRESS 
SKIP 

SENSE STATYS 

WAIT FOR BUSY NOP 
SET READ MODE 

SKIP 


FDLO7686 
FDLO7590 
FDLO7700 
FDLO7710 
FDLO7720 
FDLO7730 
FDLO7740 
FDLO7750 
FDLO7760 
FDLO7770 
FDLO7780 
FDLO77990 
FDLO7800 
FDLO7810 
FDLO7820 
FDLO7830 
FDLO73840 
FDLO7850 
FDLO7860 
FDLO7870 
FDLO7880 
FDLO78990 
FDLO7900 
FDLO7910 


PNT ATI9AN 
va Se 


FDL07930 
FDLO7940 
FOLO7950 
FDLO7960 
FDLO7370 
FDLO7S980 
FDLO7990 
FDLO89000 
§DL9O8010 
FDLO028920 
FDLO39030 
FDLO3040 
FDLO3050 
FDLO8060 
FDL9O8070 
FDLO8080 
FDLO899G6 
FDLO8100 
FDLOE110 
FDLO081290 
FDLO8130 
FDLO8 140 
FDLO8150 
FDLO8160 
FDLO81790 
FDLO&180 
FDLO8190 
FDLO8200 
FDLO82170 
FDLO8220 


O6-225FC2"91R01A13 


COCASEI 
QOOOASAT 
OOOASEI 
OOOA62T 
*O00A661 
OOOA68I 
OQOOA6CI 
OOOA7TOI 
OOOA7TUI 
*OOOA78I 
OOOATAT 
OOOA7CI 
OOOABDIL 
OOOA84T 
OOOAS8I 
*OOOABCI 
OOOAS8EI 
OOOASOL 
OOOAQ4T 
*OOOA9BI 
OOOA9AI 
OOOASCI 
OOOAAOI 
OOOAAYT 
OOOAABI 
OOOAACT 
OOOABOI 
OOOAB4I 
OOOAB8I 
OOOABCI 
QOOACOI 
OOOACHT 
OOOACBI 
OOOACCI 
OOOADOT 
OOOADAT 
OOOADSI 
OOOADCI 
OOOAEOT 
OOOAEUT 
OOOAEG6I 
OOOAESI 
OOOAECT 
OOOAFOI 
OOOAFAT 
OOOAF6I 
OOOAFAL 
OOOAFET 
000B02I 
000806! 
OO9B0AT 
QOOBOCI 
OOOBODEL 
000B121 
000314T 


D310 
DEG 
CH20 
C520 
2183 
CB20 
C520 
4320 
C520 
2186 
2731 
4210 
4300 
D223 
c520 
2388 
2631 
C530 
42B0 
242D 
22CB 
41C0 
D320 
C520 
43B0 
C520 
43B0 
C520 
43B0 
C520 
43B0 
C520 
43B0 
c520 
43B0 
c520 
43EBO 
4300 
C810 
2430 
2441 
C850 
D213 
C130 
030C 
4040 
41E0 
41C0 
41TEO 
4830 
0A34 
2641 
4810 
2421 
0612 


qn @ 


try ra 
on UI 
7 a 


007F 
0060 


0020 
9023 
BETC 
OO5F 


FF8A 
FF88 
F65A 
000D 


0046 
FF74 


F9AE 
FA3E 
O04C 
BAG62 
0053 
BD12 
0043 
8120 
D044 
82FA 
0046 
876E 
0049 
8884 
0055 
8566 
8B6A 
0020 


001D 
F656 
FFF8 


F672 
BB5E 
86F4 
8C28 
F51E 


F65E 


=O0018FOI 


=OOOAOAT 
=OOGAOCI 
=Q000E2T 


=O00A0CT 
=OOO44ET 
=O000E2T 
=00150EI 
=0017C6I 
=O000BDCI 
=O00DBEI 
=00123AI 
=0013581 


=0010421 
=00164AI 


=000146I 


=O00AECI 


=00016CI 
=00165CI 
=0011F6I 
=00172ET 
=0090281 


=0001701 


823 
§ 24 
825 
826 
827 
828 
38293 
830 
831 
832 
333 
334 
835 
836 
837 
838 
839 


FLOPPY CIASNOSTIC 


COMIN1 


IN2 


GODOIT 


CFFORM 


CFFORM1 


CHKPGM 


LOADER/GENERATOR 


Od DETAR 


arg rnony 
R1,PASRD 
R2,X*7E* 
R2,X°60° 
COMIN 
R2,X'20° 
R2,X'23°* 
171,POUND 
R2,X°"5F° 
11, 1N2 
R3,1 
COMIN 

IN1 
R2,TONIN(23) 
R2,X°OD* 
11,SO0DO0IT 
23,1 
R3,70 
11,081 
R2,X°OD* 
IN2 
RC,CLRDIS 
R2,CONIN 
R2,C°L° 
11,LIMITS 
R2,C°S' 
11,SEQ 
R2,C°C* 
11,CREATE 
22,°°D° 
11,DUPE 
R2,C°F* 
11,FIND 
R2,C*I* 
11,INIT 
R2,c°US 
11,UPDATE 


5,29 
R1,FFORK(R3) 
R3,CFFORM1 
Res 
R4,CSEQNUMO 
RE,RDIRECT 
RC,SULH56 
RE,RDLRN 
R3,INBUF+14 
R3,24 

R4,1 
R1,PRECHDO 
22,1 

R1,R2 


PAGE 


15 


93:34:45 
LOAD READ ADDRESS 
TURK LINE AROUND 
STRIe PARITY 
LOWER CASE CHECK 
SKIP 
MAKE UPPER CASE 
POUND SIGN 
RECYCLE 
DELETE 
NO 
DEC2ZEMENT COUNT 
RESET TO 9 
RE-STAR? 

STORE DATA 

C2 

EXECUTE 
INCRIMENT COUNT 
DONE 


CLEAR DISPLAY 


LOAD FIRST CHARACTER 


L INPUT 

LIMITS 

S INPIT 
SEQUENCE 

C INPUT 

CREATE PROGSAM 
D Input 
DUPLICATES (COPY) 
F INPUT 

FIND PROGPAS 

I INPUT 
INITIALIZE MEDIA 
U INPUT 

UPDATE PROGXAM 
BAD INPUT 

LOAD BLANK 
SETUP 

BKLE 

LIMITS 

STORE 

LOOP 

RETURN 


SET CURRENT TO LAST CCPIED 


READ DIRECTORY 
LOAD R5-26 

READ PDB 

LOAD TLRNS 

ADD TO START LRN 


INCRIMENT LRN TO PROGRAM 


LOAD PRE-CMD 


LOAD READ C™D BITS 


AERGE 


08/17/73 


FDLOB230 
FDLO&8 240 
FDLO8250 
FDLO8260 
FDLO8270 
FDLO82890 
FDLO8 290 
FDLO8300 
FDLO8 310 
FDLO8 320 
FDL08330 
FDLO8 340 
FDLO8 350 
FDLO8 360 
FDLO8 370 
FDLO2380 
FDLO8 390 
FOLO8400 
FDLO84&190 
FDLO8420 
FDLO8430 
FDLOB4KO 
FDLO3456 
FDLOB460 
FDLO8470 
FDLO84B6 
FDLO8490 
FDLO8500 
FOLOSS1S 
FDLO8520 
FDLO8530 
FDLO8540 
FDLO8550 
FDLO8 560 
FDLO8570 
FDLO8580 
FDLOR590 
FDLO8600 
FDLO8610 
FDLO8620 
FDLO8630 
FDLO8640 
FDLO8650 
FDL98660 
FDLO8670 
FDL08680 
FDLO8690 
¥DLO87090 
FDLO8710 
FDLO8&720 
FDLO8730 
FDLO8740 
FDLO8750 
FDLO3760 
FDLO8770 


06-225F02491R01A13 


0008161 
OOOBITAT 
O000B1CI 
OO0B1zEI 
0008201 
000B22T 
0008261 
000B281 
*O000B2AI 
000B2CI 
*QO00B2ET 
0003830 
*000B321 
0008341 
0008381 
OOOB3AT 
*000B3CI 
OOOB3EIL 
OO0O0B4S2T 
OOOB4EL 
OOOB4AT 
OOOBNCT 
O000B5OL 
0903854T 
OOORSCT 
oo0B60r 
OCOB64I 
000°456T 
O0CB68I 
000B6CI 
OQOOBG6ET 
0008701 
OOOB74T 
0003761 
OO0B7381 
OOOBTAT 
OOORTCI 
OOOBT7EI 
OOOBS8OL 
00088 4T 
*00058881 
OOOBBAL 
00088CTI 
OOO0BSET 
0005921 
O0O0BI4T 
*000396I 
0005898T 
OOOSSAT 
00039CT 
OOC39ET 
OOOBAODL 
OOOBA2T 
OOOSA4T 
OOOSA6I 


D320 
9824 
9k21 
9D25 
2081 
C860 
9925 
2761 
2032 
9D25 
2158 
0543 
Z1E4 
41050 
030F 
2641 
220F 
4100 
D320 
E630 
2480 
8100 
4300 
5645 
5252 
D320 
9D21 
O22D 
4818 
2427 
0612 
D320 
9E21 
2611 
9E21 
9D21 
2221 
o3cD 
D310 
DE 10 
23C9 
9014 
2081 
DA13 
2631 
2721 
20 36 
Q36C 
24546D 
9015 
2081 
SA14 
2UUA 
9015 
20861 


FaFD 


0040 


spcc 


8DC2 
8FEF 
800A 


B7I2E 
sbgc 
5249 
“FS? 
F4&B3 


F604 


F4A 3 


F&90 
F5F2 


0000 


=000017T 


=001904T 


=0019041 
=001B351 
=O000B54I1 
=00127EI 
=0018F0I 
4659 2045 


=0000171 


=0001701 


=0000171 


=000014T 
=O0017AT 


378 
879 
880 


881 


882 
883 
884 
885 


CP1 


CP3 


CP2 


ERR27 


CHKERR 


RESET | 


TTYO 


TTYO1 


TTYO2 


FLOPPY DIAGNOSTIC LCADER/SGENER ATOR 


R2,FLPAD 
R2,84 
R2-e21 
R2,R5 . 
8,1 
R6,64 
R2,R5 
R6,1 
CP3 
R2,25 
5,ERR27 


RD, STOP 
R2,CHKERRS 
R3,CHKERR 

R8,9 

RD,FINDCON 
POUND 

C* VERIFY ERROR® 


R2,FLPAD 
R2,21 
2eRn2 
R1,PRECNDO(R8 ) 
22,7 
21,2 
R22,FLPAD 
R2,R1 
R11 
R2,31 
R2,R1 
271 

RD 
R1,ITTYAD 
R1,TTY 
TTYI2 
R1,24 
3,1 
R1,9¢033) 
R3,1 
22,1 
TTYO1 

ac 

R4,13 
R1,25 
8,1 
R1,R4 
R4,10 
PT,R5 
3,1 


PAGE 


93:34:45 08/17/79 
LOAD ADDRESS 

WRITE LRN TS CONTROLLER 
COMMAND 

SENSE STATUS 

BUSY LOOP 

LOAD LRN LIMITS 

READ DATA 

DECPEMENT COUNT 

LOOP 

SENSE STATUS 

NON-ZERO STATUS 
COMPLETE PROGRAM CHECKED 


INCRIMENT 
READ NEXT LRN 
STOP 

LOAD SIZE 
LOAD ADDRESS 
SET OUTPIT 
PRINT 
RE-START 


LOAD ADDRESS 
SENSE STATUS 

EXIT IF IDLE 

LOAD PRE-COMMAND 
LOAD STOP CMD 
MERGE COMMAND 
LOAD ADDRESS 
COMMAND 

CHANGE STOP TO RESET 
COMMAND 

SENSE STATUS 

IDLE NOT LoOCcP 
RETURN 

LOAD ADDRESS 

CMD OUTPUT 

SKIP 

SENSE STATUS 

BUSY LOOP 

WRITE DATA 
INCRIMENT CHARACTER PCINTER 
DECREMENT COUNTER 
LOOP 

RETURN 

LOAD CR 

SENSE STATUS 

BUSY LOOP 

WRITE DATA 

LOAD LF 

SENSE STATUS 

BUSY LOOP 


FOLO8780 
FDLO8799 
FDLO8800 
FDLO8810 
FDLO8820 
FDLO8830 
FOLO884C 
FDLO8850 
FDLO8$860 
FDCLOSe&76 
FDLO8880 
FDLO8890 
FDLO8900 
FDLO8910 
FDLO8920 
FDLO8930 
FDLO8940 
FDLO8950 
FDLO8960 
FDLO8970 
FDLO8980 
FDLO8990 
FDLO9000 
FDLOIN10 


FDLO09020 
FDLO9030 
FDLOSO4G 
FDLO9050 
FDLO9T60 
FDLO9070 
FDLOIG80 
FDLO9090 
FDLOS 106 
FDLO9110 
FDLO9120 
FDLO39130 
FDLO9 140 
FDLO91S0 
FDLO9160 
FDLO9170 
FDLIS189 
FDLO9190 
FDLO9200 
FDLO9210 
FDLO9220 
FDLO9230 
FDLO9240 
FDLO9250 
FDLO9260 
FDLO9270 
FDLO9280 
FDLO9290 
FDLO9300 
FDLO331C 


a 


O6-225FO02N91R07A73 


OOOBABI 
OOOBAAI 
OOCBAEL 
000301 
O00BR2I 
OOOBBU4I 
000B38aI 

*000BBCI 
000BBEI 

*0008C2I 
OOOBCHI 

*OOBCBI 
OOOBCAI 

*OOOBCEI 
0003D0I 
0003D2I 
OOOBD4I 
OOOBDEI 
OOOBDAI 
OOOBDCT 
OOOBEOI 
OOOREGI 
OOORE6L 
OOOBEAI 
OOOBEEI 
O000BF2I 
O00BF6I 
OOOBFAI 
OONBFCI 
oo00CINI 
000co2I 

*000CO6I 
000CO3T 

*OOOCOATI 
OOOCOCI 
000C101 
000C14I 
000C15I 
O09C1AI 
000C1CI 
000C20I 
o00Cc24T 
000C281 
000C2CI 
000C30I1 
000C341 
000C36I 
OOOC3AI 
000C3CI 
o0oc4o! 
oooCcu4T 
oo0c4sl 
QOOC4CI 
OOOCHEI 
000C52I 


9A 14 
cauo 
9D15 
2081 
SA14 
4300 
C510 
213A 
€510 
218A 
C510 
2184 
C510 
2183 
2511 
030C 
2619 
C410 
2204 
48 80 
4080 
2480 
41E0 
4530 
43R0 
4080 
41EO 
0833 
4230 
OB8AA 
CS5A0 
21B7 
0855 
2135 
4050 
4300 
0855 
4330 
2752 
4050 
4845 
4040 
41C0 
41E0 
4830 
2631 
4840 
OA43 
4040 
D370 
5837 
5847 
OB34 
4280 
26231 


FFD2 =000238AI 


F556 =009136I1 
F588 =00016CI 


BAT2 =09165CI 
F57E =00016CI 
8194 =000D85I 
F576 =00016CI 
8A62 =00165CI 


B12A =O0OD2AT 


F56E =00017ET 
802C =O00C4OI 


8146 =O000D60I 


F55E =00017EI 
F3F6 =QO007ATI 
F558 =000180T 
85CA =00T1F6I 
8AFE =00172EI 
F3F4 =000028I1 


F546 =000180T 
F542 =000182I 
F4E8 =00012CT 
F4F8 =O000T4OT 
F4FO =00013CI 


80EA =000D3CI 


FLOPPY 


DIAGNOSTIC LOADER/GENESATOR 


932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 


CONVERT 


BADIN 
OKIN 
ISAF 
ISNUM 


CREATE 


CR1 


CR3 


CR4 


WDR 
LHI 
SSR 
BTBS 
aDR 
B 
CLHI 


R1.R4 
RU,X°FRF? 
R1,25 

8,1 

R1,R84 

TTYO1 
F1,X°30° 
BADIN 
R1,X°3A° 
ISNUY 
R1,X°41° 
BADIN 

R1,X° 47" 
ISAF 

21,1 

RC 

R1,9 
R1,X°OF* 
OKIN 
R8,SEQNUM 
RB,CSEQNUMO 
28,9 
RE,RDIRECT 
23,CSEQNUMO 
11,THERE 
R8,CSEQNYUMO 
RE,RDIRECT 
R3,R3 

CRB 

RA, tA 
RA,STDIR 
11,CR1 
R5,325 

CR1 

R5,LPDB 
CR4 

R5-R5S 

CR2 

R5,2 
R5,LPDB 

RG, INBUFC(RS) 
R4,NSLRN 
RC, SULH5S6 
RE,RDL&N 
R3,INBUF+14 
R3,1 
R4Y,NSLRN 
R4,23 
R4,NSLRNA 
27,2L616 
R3,HIGH(R7) 
R4,LOW(R7) 
R3,R4 

8,C%89 

R3,1 


08:34:45 38/17/78 


WRITE DATA 


rr; N Nn errr 
BeyAY Hib 


SENSE STATUS 

BUSY LOOP 

WRITE DATA 

SKIP 

NUMBER OK 

NO 

NUMBER OR ALPHA 

IT'S A NUMBER (0-9) 

BAD INPUT 

YES 

ALPHA OK 

YES 

LOAD NEGATIVE NUMBER 
RETURN 

CORRECT 

STRIP UPPER 

EXIT 

LOAD SEQNUM TO BF ADODEL 
MAKE CURRENT 

LOAD OUTPUT FLAG 

READ DIRECTORY 

AAS IT THERE? 

YES, ERROR 

SET EOV=CURRENT 

FIND EOV 

LOAD RETURN SEQUENCE NUMBER 
EOV NOT RETURNED 

LOAD DIXECTORY LaN INDICATORS 
FIRST daa 

NO 

LOAD BIB POINTER 

NOT FIRST ENTRY 

SAVE LAST 

NO ENTRIES 

LOAD BIB 

FIRST ENTRY 

FIND PREVIOUS PDB POINTER 
SAVE POINTER 

LOAD PDB LRN POINTER 
SAV& POINTER 

LOAD R5-R6 

READ PDB 

LOAD ILRNS 

CORRECT TO INCLUDE PDE 
LOAD LRN POINTER 

ADD IN # OF LRNS NEEDEC 
LOAD START 

LOAD 16 BIT FLAG 

LOAD HIGH 

LOAD LOW - 

DIFFERENCE 

LOW > HIGH 

MAKE BYTE COUNT CORRECT 


FDLO9340 
FDLG9350 
FDLOS 366 
FDL99370 
FDLO9380 
FDLO9390 
FDLO9400 
FDLO9410 
FDLO2420 
FDLO9430 
FDLO9440 
FDLO9450 
FDLOI9460 
FDLO9470 
FDLO9480 
FDLO94990 
FDLO3S500 
FDLO9510 
FDLO9520 
FDLO9530 
FDLO95S40 
FDLOIS50 
FDLO9560 
FDLO9570 
FDLO9580 
FDLO09590 
FDLO9600 
FLLOY41¢ 
#DLO9620 
FDLO9630 
FDLO9640 
*DLO9650 
FDLO9660 
FDLO9670 
FDLO9680 
FDL09690 
FDLO9700 
FDLO9710 
FDLO9720 
FDLO9730 
FDLO9740 
FDLO9750 
FDLO9760 
FDLO9770 
FDLO9780 
FDLQ97990 
FDLO9500 
FDLO9810 
FDLO09820 
FDLO9830 
FDLO9840 
FDLO9850 
FDLO9&60 


on. 


36-225FC2491R01A13 


0065541 
006581 
OOCCSAL 
00075CI 
OOSCS5EI 
009621 
000C66I 
OOSCBAI 
009C6CI 
OOSCS5EI 
009C72I 
000C76I 
000C78I 
000C7CI 
000C8OI 
ooccaal 
000Ca8I 
OOOCBAI 
000CBEI 
009C92I 

*000C94I 
000C98I 
000C9CI 
OOOC9EI 
OOOCAOT 
OOOCA4I 
OOOCABT 

*OOCTAAL 
OOOCACI 

*OOOCAEI 
OOOCBOI 
000CB2I 

*9000CB4T 

*O00CBBI 
OOOCBAI 
OOOCBET 
o00cc2I 
O00CCEI 
oooccsl 
OCOCCCI 
OOOCCET 
000CDOI 

*900CD4I 
GOOCDEI 
000CcD8I 
OO0CDCI 
OOCCEOI 
OOOCE2I 
OOOCE6I 
OOOCESI 
OOOCECI 
OOOCFOI 
OOOCF4L 
OOOCFaI 
OOOCFAI 


&1C0 
0822 
2332 
2631 
4030 
4840 
4geto 
2651 
OAEY 
4B5O 
4220 
OB4A 
41C0 
41EO 
4850 
4330 
2652 
C550 
4280 
OB8AA 
CSAO 
4330 
OS4A 
2641 
41C0 


8350 


F4E2 
F51C 
F4DA 


F50A 
80D8 
857A 
BAAE 
FOFA 
8024 


OO7E 
801E 


OO1F 
8564 


8552 
8AB6 


OO1F 
F4CH 
F358 
F4uTO 


F3WE 
F346 
F33E 
8520 
FFDY 
F488 
F492 
FuND 
Fu6D 


BC2A 


=0010381 


=000744T 
=0001821I 
=OOCTH4AT 


=00017CI 
=OO0D4ET 
=0011F6éI 
=00172EI 


=O0017EI 
=Q00CACI 


=O00CBOI 


=001200I 


=0011F6T 
=00172ET 


=0001821 
=Q0001AI 
=0001361 


=OQOO00TAT 
=O00CTAI 
=OOO01AT 
=001200T 
=OOOCBAT 
=000174T 
=0001821 
=0001361 
=000165T 


=001928T1 


987 
988 
989 
3990 
991 


CRH1 


CRIA 
CR42 
CR11 


CRT7 


CR69 
CR5 


CRPGM 


FLOPPY DIAGNOSTIC LOADER/GENERATOR 


RC,D128 
R2,R2 
CR41 

R3,1 
R3,LRNS 
R4,NSLRNA 
R5,LRNS 
R5,1 
R5,R4 
R5,MAXLRNO 
CR91 
R4&,RA 
RC,SULH56 
RE,RDLR&N 
R5,LPDB 
CRIA 
R542 
R5,126 

8, CR42 
RA,RA 

RA, ENDDIR 


RC, SULHS6 
RE,RDL&N 
R5,2 

cR11 

25,2 

cR11 

R5,2 
RG,RA 
24,ENDDIR 
11,CR5 
24,NSLRNA 


R4,INBUFCR5) 


RO,SEQNUM 
R5e2 


R4,INBUFCRS) 


R5,4 
R4,9 


R4,INBUF(R5) 


CRPGM 
R5,4 


R4,INBUFCRS) 


EOD 

R5,4 

CR77 
RA,GA 
RA,DIRP 
R4,NSLRNA 
R5,S5EQNUM 


R6,SEQNUM+H7 


R8,9 
RE,WRLRN 


08:34:45 8/17/79 
DIVIDE 

LOAD REMAINDER 

NO REMAINDER 

ADD EXTRA FOR OVERFLOW 
STORE TO LRN SIZE 

LOAD START 

LOAD SIZE NEEDED 
INCLUDE PDB 


NO 

LOAD DIRECTORY POINTER 
LOAD R5-26 

RE-READ DIRECTORY BLOCK 
LOAD LAST PDB POINTER 
OK 

CORRECT POINTER 

NEXT ENTRY FIT 


LOAD DIRECTORY LRN POINTER 
LAST LRN aaa 


LOAD DIRECTORY LRN POINTER 
INCRIMEST 

LOAD R5-R6 

READ NEXT DIRECTORY LRN 
LOAD POINTER 

SKIP 

INCRIMENT PCINTER 

SKIP 

INCRIMENT TO NEXT PDB ENTRY 
LOAD DIRECTORY LRN 
MAXIMUM LRN ada 
EOV/EOD CHECK 

LOAD NEXT START LRN 
STORE NEW POINTER 

LOAD SEQUENCE # 
DECREMENT POINTER 

STORE SEQUENCE #2 
INC2IMENT TO NEXT ENTRY 
CLEAR RY 

STORE EOV IN DIRECTORY 
CREATE PROGGAM 
INCRIMENT TO NEXT ENTRY 
LOAD NEXT SEQUENCE @ 
EOD REACHED 

RESTORE 

SIP 

LOAD BLOCK POINTER 

SAVE 

LOAD NEXT START LRA 
LOAD LOd 

LOAD HIGEH 

SET OUTPUT 

WRITE PD3 


FDLO9870 
FELOI880 
FDLOS890 
FDLO9S90G 
FDLO9910 
FDLO9920 
FDLO9530 
FDLOS3940 
FDLA99506 
FDLO9960 
FDLO9970 
FDLO9980 
FDLO99906 
FOL10000 
FDL10010 
FDL10020 
FDL19030 
FDL10040 
FDL16050 
FDL10060 
FDL10070 
FDL10080 
FDL10090 
FDL10100 
FDL101170 
£DL10120 
FDL10139 
FDL101740 
FDL16150 
FDL10160 
#DL10170 
FDL10180 
FDL10199 
FDL10200 
FDL10210 
FDL10220 
FDL19230 
FDL10240 
FDL10250 
FDL10260 
FDL10270 
rDL10280 
FDL10290 
FDL10300 
rDL10310 
FDL10320 
PDL16336 
FDL10340 
FDL10350 
FDL10 360 
FDL10370 
FDL10380 
FDL10390 
FDL10400 
FDL10410 


a 


000D12T 
000D16T 
OOOD1AI 
OOODIET 
000D22T 
000D261 
OOOD2AT 
OO00D2EI 
000D321 
OO0OD341 
000D331 
OOOD3CI 
OOOD4OIL 
OoOD4a4T 
O00D46I 
OOOD4AT 
OOOD4ET 
000D52T 
000D55I 
000D58I 
O00D5CI 
o000D60I 
000D621 
OO0ODSSI 
000D68I 
OOOD6CI 
000D70I 
OOOD74T 
000D78I 
OO0OD7CI 
OO00DsO0r 
O00D82I 
000D86I 
OOOD8SAL 
OOOD8EI 
OOOD9OI 
O00D94T 
O00D98I 
OOODAOI 
OOODA8I 
OOODBOL 
OOODBEI 
OOODBET 
OOODCOT 
oooDCc4al 
OOODCEI 
OOODCAT 
*OO0DCEI 
OOO0DDOL 


6-225FG24S1R01A13 


F428 =00012CI 
FH34 =00013CI 
F434 =000140I 


8C16 =0019281 
F4SE =0001741 
B4DC =0011F6I 
BCOA =00192AT 
F414 =0001361 
FDDO =OO00AF6I 
B4E8 =001212I 
8E09 =001337I 
BCBE =0019COI 


8546 =00127EI 
8BB4 =0018FOI 
8DFB =001B38I 
8CBA =O019CEI 


8534 =00127EI 
B8BA2 =O018FOL 
BDE? =001B839T 
8C8B =0019DETI 


8522 =00127EI 
8B90 =0018FOI 


F418 =00017EI 


B4Y8A =0011F6I 
89BE =00172EI 
F324 =000098T 
F4O8 =000180I 
847A =0011F6I 
B9AE =00172EI 


FEAA =000C30I1 
BDAC =001B361 
800A =000D98T 


B4EA =00127EL 
8B58 =0018F0I 
5155 454E 4345 
554D 4245 5220 
4953 5453 204F 
4F55 5450 5554 
4544 4941 


8A9C =001860I1 


F318 =O000E2I 
000D 


FLOPP) 


me 
and 
bt 

vet 
wa 
at 
Cc 
ui 
beg 
bet 
C?Y 


CR8 


CR9 


CR91 


CR2 


THERE 


GOTMSG 


DUPE 


g4,7 
R7,FLG16 
R5,LOWCR7) 
R6,4IGH(R7) 
R8,9 

RE, WRLRN 
24u,DIRP 
RC,SULH56 
RE, ARLRN 
R4&,SEQNUM 
RF,CHKPGM 
EOJ 
R2,ECVRTNAS 
R3,20VRTNM 
RD,FINDCOK 
POUND 
R2,LGHMSGS 
R3,LGHMSG 
88,9 

RD, FINDCON 
POUND 
k2,T3IGNSSS 
R3,TBIGHSS 
R8,9 

RD, FINDCON 
POUND 

RA,1 
R5,LPDB 
R4&,RA 
RC,SULH56 
RE,sRDLRN 
R4,INBUF+125 
R4,NSLRN 
RC, SULH56 
RE,RDLRN 
RA,1 

CR3 
R2,SOTKSGS 
R3,GOTMSG 
R8,0 
RD,FINDCON 
POUND 


C*°SEQUENCE NUMBER EXISTS ON OUTPUT 48DIA' 


R2,0 
RC,SPCOM 
R2-1 
R5,CONIN(R2) 
RS5,X*OD* 
11-51 

R22 


INCKIMENT FO PROGRAM START LRN 


LOAD 16 BIT FLAG 
LOAD LO 

LOAD HIGH 

SET OUTPUT FLAG 
WRITE PROGPAY 


LOAD DIRECTIZY PIINTER 


LOAD 85-6 

WRITE DIRECTORY 
LOAD FOR VALIDATION 
VALIDATE PROGRAM 
PRINT EODJ 

LOAD SIZE 

LOAD ADDRESS 

SET OUTPUT 

PRINT 

RE-START 

LOA’) SIZE 

LOAD ADDRESS 

SET OUTPUT 

PRINT 

RE-START 

LOAD SIZE 

LOAD ADDRESS 

SET OUTPUT 

PRINT 

RE-START 
DECREMENT 

SAVE 

LOAD CORRECTED Lin 
LOAD R5-R5 

READ PREVIO'NS Lex 
LOAD PREVIC3S PD3D 
SAVE 

LOAD R5-R6 

READ PDB 
INCRIMENT 
CONTINUE 

LOAD SIZE 

LOAD ADDRESS 

SET OUTPUT FLAG 
PRINT 

RE-START 


LOAD CHARACTER POINTER 


FIND DELIMITER 


DECREMENT TO NEXT START 


LOAD 1ST CHARACTER 
CR 

DUPE TO FOV 
CORRECT POINTER 


FDL10420 
FDLI0430 
FDL10440 
FDL10450 
FDL10460 
FDL10470 
FDL10480 
FDL104590 
FDL105006 
FDL10510 
FDL190520 
FDL1053C 
FDL10640 
PDL10550 
FDL19560 
FDL10570 
FDL10580 
FDL105990 
FDL19600 
FDL10510 
FDL10620 
FDL10030 
FDL19640 
FDL1G559 
FDL10660 
FDL10670 
FDL10680 
FDL10690 
FDL10700 
POLT7 15 
FDL10720 
FDL1073G6 
FOL10740 
FDL107590 
FDL10760 
FDL10770 
FDL10780 
FDL10790 
FDL10800 
FDL10810 
FDL10820 
FDL 108 30 
FDL10840 
FDL10850 


FDL10860 
FDL10870 
FDL10880 
FDL10890 
FDL10900 
FDL10910 
FDL10920 


06-225F02491R01A13 


OO0ODD2rT 
OOODD6I 
QOODDAT 
oooDDCI 
OOODEOL 
QO0DE2T 
*OO0DE6I 
OOODEaTI 
*OOODEAT 
OOODECT 
OOODEET 
O00DF2I 
OOODF4I 
OO0ODF8I 
OOODFCI 
OO0EOOT 
QOOQEOUT 
OOOEOBI 
OOOEOAT 
ODOOEOCI 
QOOETOT 
*OOOET4I 
O00E161 
OOCE18T 
OOOETAT 
OODEEL 
O00R22I 
JSIE26I 
*OOOE2ZAI 
COOR2CTI 
*OODE2ZETI 
000301 
O0CE32I 
OO0R361 
*OOO0E3AI 
QOOE3CTI 
OOOESOI 
OOOEG4T 
OOOEKBI 
OOOEGAT 
OOOEU4EL 
OO0ES2I 
OOOES6I 
OOOESAIL 
OOOES5EI 
O09 F60I 
OOOE64I 
OOO0E68T 
OOOE6CI 
000z70I1 
OO0E74T 
OO0ETEI 
OOOE7AT 
*OOO0E7CI 
OOOE7TEI 


4150 
4050 
1O5C 
4230 
2480 
41EO 
2303 
2450 
220A 
2482 
41E0 
0833 
4330 
4050 
4030 
4040 
4100 
9433 
9813 
4100 
C550 
21BE 
O84A 
2641 
41C0 
41E0 
4860 
4A4O 
236 
2654 
220F 
2654 
4865 
C560 
22E7 
4060 
41CO 
K1EO 
2470 
D270 
4870 
4070 
4870 
4230 
2430 
4670 
4070 
H1EO 
4530 
43RO 
0833 
4230 
0855 
2337 
46845 


87BE =0015941 
F3AA =000184T 


B86A =00164AI 


850E =0012F4I 


886A =00165CI 


8H1A =001212I 
F38A =0001861 
F368 =000168I 
F366 =O00016AI 
F3B0 =0001B8I 


F3B2 =0001C2I 
007C 


83D8 =0011F6I 
890C =00172EI 
FIFS =O0001TAI 
F340 =O00T6AT 


FIEG =O00001AT 
7000 


F326 =0001661 
83B2 =0011F6I 
B8E6 =00172ET 


F2EO0 =00012ET 
F1ID6 =000028I1 
F332 =0001881i 
FICA =0000241 
818E =O00FECTI 


F304 =0001681 
F304 =00016CI 
87FO =00165CTI 
F2F8 =0001681 
FF12 =000D861 


FEBO =OOOD2AI 


F196 =000018T 


19393 
1994 
1095 
1096 
1097 
1038 
1099 
1109 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1441 
1112 
1413 
17114 
1115 
1116 
1117 
14118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
4144 
1145 
1746 
1147 


DIA 


D1 


D2 


D21 


D20 
D3 


bY 


FLOPPY DIAGNOSTIC LOADER/S 


BAL 
STH 
SKLS 
BNZ 
LIS 


ENERATOR PAGE 


RE,PACK 
R5,TERMSEQ 
R5,12 
QUEST 

R8,0 
RE,FMAXLRN 


88,2 

RE,R DIRECT 
R3,R3 

EOJ 

R5,CSPI 
R3,CSNI 
R4Y,CSNPDBP 
RD,SINC 
R3,83 

R1,R3 
RD,SNOR 
R5,124 
11,03 

R4,RA 

R4,1 
2C,SULH56 
RE,SDLRN 
R6,INBUF 
R4,CSNPDBS 
Dy 

R5,4 

B21 

R5,4 
RG6,INBUFCRS) 
R6,X*70G0° 
11,D20 
R6,NEXTI 
RC,SULH56 
RE,RDLRN 
R7,9 
R7,RANGE 
R7,INBUF+F+14 
R7,5IZEI 
R7,INBUF+10 
CHK16 

R8,9 
R7,CSNI 
R7,CSEQNUMO 
RE,2DIRECT 
R3,CSNI 
11,THERE 
R3,83 

CR8 

R5,85 

D6 

RG, I NBUF-2(085) 


06:34:45 98/17/79 

PACK DATA 

STORE TERMINATION SEQUENCE 4 
SCALE 

ERROR 

SET CUTPUT FLAG 

FIND CAPACITY 

SKIP 

LOAD EQV 

STORE 

SET INPUT 

READ DIRECTORY 

SET CC 

EOV FOUND 

SAVE SEQUENCE POINTER 
SAVE SEQUENCE NUMBER 

SAVE PD3 POINTER 

SET INCRIMENTAL MODE 

SWAP FOR DISPLAY 

WRITE SEQUENCE NUMBER TO DISPLAY 
SET NORMAL MODE 

LAST ENTRY IN BLOCK 

NO 

LOAD BLOCK POINTER 
INCRIMNENT TC NEXT 

LOAD R5-26 

READ NEXT BLOCK 

LOAD NEXT SEQUENCE NUMBER 
LOAD POINTER 

SKIP 

INCRIMENT POINTER 

CHECK IF NEW BLOCK NEEDED 
INCRIMENT TO NEXT ENTRY 
LOAD NEXT SEQUENCE NUMBER 
DELETE CHARACTER? 

YES 

SAVE 

LOAD R5-26 


LOAD MSD OF HIGH 
>64KB 

SET OUTPUT 

LOAD CURRENT SEQUENCE NUMBER 
SET=CURRENT 

READ DIRECTORY 
FOUND 

DUPLICAT® EXISTS 
SET cc 

FOV NOT FOUND 

SET CC 

SKIP 

LOAD PREVICIJS PD3P 


FDL10936 
FDL10946 
FDL10950 
FDL10960 
FDL10970 
FDL10980 
FDL10996 
FDL11000 
FDL11610 
FDL17026 
FDL11030 
FDL110489 
FDL11050 
FDL11660 
FDL11070 
FDL11080 
FDL11090 
FDL11100 
FDL11110 
FDL11120 
FDL11130 
FDL11140 
FDL11150 
FDL11150 
FDL11170 
FDL11180 
FDL11190 
FDL11200 
FDL11210 
FDL11220 
FDL11236 
FDL11240 
FDL11250 
FDL112€0 
FDL11270 
FDL11280 
FDL11290 
FDL11300 
®DL11316 
FDL11320 
FDL11330 
FDL11340 
7DL11350 
FDL11360 
FDL11370 
FDL1138¢C 
FDL11390 
FDL11#090 
EDL11410 
FDL11420 
FOL11436 
FLL11440 
FDL11450 
FDL11460 
FDL11470 


06-225FO02M391R01A13 


GOGEE2T 
OOOE8 67 
OOOES8AI 
OOOERS ET 
OOOE92I 
OOCES4I 
OOOEIS5I 
OOOEQAT 
OOOESFI 
OOOEA2T 
OOCEA6I 
OOOEAAI 
OOOEAEL 
OOJEBOL 
OOOEB2I 
OOOEBSI 
OOOEBSI 
OOOESAT 
OOOEBETL 
OOOEC2I 
QOOEC6I 
OOOECAL 
OQOOFCET 
OOOED2T 
OOOEDE6I 
QOOEDAT 
OOOEDCI 
OOOEROL 
QOOEEST 
OOOFESI 
QOOEEAI 
QOOEEET 
OOCEF2T 
OOOEF6I 
OOOEFAT 
OOOEFEI 
*O00FO4T 
*OOO0FO6I 
OOOFOS8I 
OOOFOCT 
QOOF10L 
OOOF16I 
OOOFIAI 
*OOOFTET 
OOOF20I 
*OO00F26I 
O00F23I 
OOOF2CI 
OOOF 30T 
*OO00F321 
OOOF34I 
OOOF38I 
*QOOF3CT 
OOOF3EI 
OOOF 421 


FP aie 
4 1LYU 


4300 


aac 


8376 
801C 
001C 
8152 


$35C 
8890 
F1F6 
8350 
8884 
FI7A 


F2D6 


F2CA 
F2BA 
FE88 
FEB4 
F29C 
8324 
8858 
F2B2 


8316 
BAUY 
F246 


8112 
F278 
F236 
F126 
F126 
0000 


BOF4 
0080 
0000 
BOE6 
0080 


0000- 


80D4 
FIFC 


OA00 
80c4 


02D0 
BQOBA 


FLOPPY DIAGNOSTIC LOADER/GENERATOR PAGE 
=O01iF6I i148 BAL  RC,SULHSS 
=OOOEA6I 1149 B DB 

1150 D6 CLHI RA,STDIR 
=OQOOFE4I 1151 BFC 11,D7 

1152 LDAR R4,RA 

1153 SIS RH,1 
=O0O11F6I 1154 BAL RC,SULH56 
=00172EI 1155 BAL RE,RDLRN 
=000098I 1156 LH 24, INBUFH126 
=O011F6I 1157 BAL = RC, SULH56 
=00172EI 1158 08 BAL  RE,8DLRN 
=000028I 1159 LH R5,INBUF+14 

1160 AAR =—- 85, R4 

1161 AIS 25,1 
=00018CI 1162 D9 STH  25,NCPDBP 

1163 LIS 28,2 

1164 AIS 25,1 
=000188I 1165 AH R5,SIZEI 
=00017CI 1166 CLH &5,MAXLRNO 
=OQOOD4EI 1167 BFC 10,CR91 
=OOOD4EI 1168 BFC 9,CK91 
=OO016AI 1169 LH R4,CSNPDBP 
=0011F6I 1170 BAL = =&C,S5ULH55 
=O0172EI 1171 BAL RE,RDLRN 
=00018CI 1172 LH R4,NCPDRBP 

1173 LIS 28,0 
=0011F6I 1174 BAL RC,SULH56 
=001928I 1175 BAL &E,WRLRN 
=00012FI 1176 LB R7,RANGE 

1177 LOA? 87,327 
=001000I 1178 BNZ D13 
=O0016AI 1179 LH R4,CSNPDBP 
=00012CI 1180 ‘LB 27,FLG16 
=000020I 1181 LDA = R5, INBUF+6(R7) 
=000024I 1182 LDA =. 86, INBUF+#10(R7) 
00001 1183 CLAI R5,STARTL 

1184 BL CHKHLS1 

1185 BNL CHKLGE1 
=001000I 1186 B D13 

1187 CHKHLS1 AHI R6,128 
00001 1188 CLAI R6,STARTL 
=001000I 1189 BNL 013 

1190 SHI 86,128 

11914 B D18A 
1B45I 1192 CHKLGE1 CLAI 25,LNZB 

1193 BNL D18A 
=001000I 1194 B D13 
=00012CI 1195 D13A LB R7,FLG16 

1196 LDAR 27,27 

1197 BNZ D188 

1198 CLHI 25,X*A00' 
=001000I 1199 BL D13 

1200 B D18 

1201 D18B CLHI R5,X*2D0° 
=001000I 1202 BL D13 


22 


READ PREVICUS DIRECTORY BLOCK 


OS:34:45 98/17/79 


co 


LOAD R5-754 

SKIP 

FIRST BLOCK? aaa 
YES 

LOAD 8LSCK POINTER 
DECPEMEN™ 

LOAD 25-76 


LOAD PLse 


LOAD SIZE 


ADD LAST PROSRAM SIZE 


INCLUDE FDS 

SAVE 

SET INPUT 

INCLUDE P93 

ADD NEW PROSRAM SIZE 
FIT 


TOO BIG 

TOO BIG 

LOAD POINTE 
LOAD P5-25 


RE-READ ?OB 

LOAD POINTER 

SET OUTPTT 

LOAD R5-%6 

WRITE PO8 

LOAD FLAS 

SET ce 

SPECIAL DUPLICATE 
LOAD PCINTER 

LOAD FLAS 

LOAD LOw 

LOAD HIGH 

COMPARE LOw TO START 
CHECK H<3 

CHECK LD>E 

SPECIAL DUPLICATE 
ADD MAX "EXTRA SIZE 


COMPARE HISY TO START 


SPECIAL DUPLICATE 
RESTORE 


COMPARE LOW TO END 


SPECIAL DUPLICATE 
LOAD FLAS 


16 B8IT ce 

BLACK HOLE POSSIBLE? 
SPECIAL DUPLICATE 
SKIP 

LOW CORE? 

SPECIAL DUPLICATE 


FDL11516 
FDL11520 
FDL11=530 
FDL11546 
FOL11559 
£DL11560 
FDL115790 
FDL17586 
FDL11590 
FDL11£00 
FDL11610 
FOLI1£20 
FDL11630 
PDL11540 
FDL11650 
FDL11669 
©£DL11679 
FDL11680 
FDL11590 
FDL11709 
FDL1171060 
FDL11720 
FDL11736 
FDL11740 
FDL11750 
FDL11769 
FIL117706 
FDL11780 
FDL11790 
F9L11200 
FDL11810 
FDL11820 
FDL11830 
FDL11840 
FDL11850 
FDL11860 
FDL11870 
FDL118890 
FDL11890 
FDL11900 
FDL11910 
FDL11929 
FDL11930 
FDL11940 
FOL11950 
FDL11960 
FDL11970 
FDL11980 
FDL11990 
FDL12000 
FDL12010 
FDL12020 


94~225FO02491R01A13 


oograst 
OOoFYEI 
OOOFHAT 
OOOFGrT 
OOOFS521 
OOOFSA4T 
OOOFS6I 
OOOFSAT 
OOOFSET 
OO0OFS52I 
OOOFS6I 
OOOF6AI 
OOOF6ET 
OOOF72I 
OOCFT76I 
OOOFT7AT 
*OOOF7ET 
QOOFBOL 
OOOFB2I 
OOOFS86I 
OOOF8ATI 
OOOFBCI 
OOOFSOTL 
OOOFQuT 
OOOFI6. 
OOOFSAT 
OOOFIET 
OOCFA2I 
OOOFA6I 
OOOFAS8I 
OOOFACI 
OOOFSBOIL 
000FBZI 
OO0F361 
OOOFBAT 
OOOFBET 
009FC2TI 
OOOFCEI 
OOOFCAT 
OOOFCCI 
OCSFDOT 
oor 
OOOFDSI 
OOSFOCT 
OOOFEOI 
OOOFEYT 
OOOFESI 
OOOFECI 
QOOFFOL 
OOOFF2T 
OOSFFEI 
OOCFFAaI 
OOOFFCI 
0010001 
0010021 


2641 
2482 
TEO 
4840 
2641 
2480 
D370 
5857 
58€7 
1TEO 
4150 
4860 
4065 
4860 
O65 
c550 
23BB 
2460 
4065 
40€5 
OBA 
41C0 
4300 
OS4A 
C540 
43EO 
41C0 
41£0 
26414 
4&1C0 
41hO 
2470 
O70 
4070 
41C0 
41EO 
4840 
4K1EO 
2482 
4BEO 
4Se0 
&3EG 
4BEO 
4050 
43C0 
C850 
43C0 
D370 
0877 
4330 
QuU7F 
D270 
4300 
2481 
4BAO 


87E0 
F23A 


FID2 
FOQC2 
FOC2 
89C2 
86F2 
FIFA 
FOA8 
F216 
FOA2 
0O07C 


FO98 
FO96 


8266 
802A 


OO1F 
8A08 
8254 
$382 


B24A 
877E 


FO64 


F062 


8238 
8966 
FI1A8 
FB2C 


F1IB4 
FI9A 
823A 
FIBA 
FI8E 
FEO8 
0020 
FEC6 
F13C 


FE68 


F132 
PESE 


F164 


=90172EI 
=00018CI 


=00012CI 
=0000201 
=000024T1 
=0019281 
=00165CI 
=000168I 
=Q0001AI 
=00018CI 
=00001CI 


=OO0007ETI 
=000020I1 


=0011F6I 
=O00FBET 


=0019A61 
=0011F6I 
=0019281 


=0011F6I 
=00172EI 


=OO001AT 
=00001CI 
=0011F6I 
=0019281 
=00016ET 
=OO0AF6I 


=000184] 
=O0016EI 
=001212I1 
=0001661 
=009016EI 
=OQOODECI 


=OQO0EB2T 
=00012CI 


=OO0E5EI 


=00012ET 
=Q00ESET 


=O0016AI 


1203 
1204 
1205 
1206 
1207 
1208 
4209 
1210 
1211 
1212 
1213 
1214 
4215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
12306 
1231 
1232 
1233 
1234 
4235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 


D18 


D10 


B12 


c7 


CHKT6 


FLOPPY DIASNOSTIC LOADER/GENERATOR 


R4,1 

R8,2 
RE,2DLRN 
RY,NCPDBP 
R4,1 

28,9 

27, L616 
R5,INBUF+6(R27) 
R5,INBUF+10(R7) 
RE,WRLRN 

RE, DIRECT 
R6,CSNI 
R6,INBUFCRS) 
R6,NCPDBP 
R6,INBUF+2(R5) 
R5,124 
11,011 

R6,0 
R6,INBUF+4(R5) 
R6,INBUF+6(85) 
R4,RA 
RC,SULH56 
D12 

RG,RA 
R4&,ENDDIR 
11,dRLRN3 
RC,SULH56 
RE,S2LRN 
R4,1 
RC,SULH56 
RE,RDLRN 
R720 
R7,INBUF 
R7,INBUF+2 
RC,SULH56 
RE,WRLRN 
R4,CSEQNUMT 
RE, CHKPGN 
R8,2 
R5,TERMSEQ 
R5,CSEQNUMIT 
11,E0J 
R5,NEXTI 
R5,CSEQNUMT 
D2 

R5,STSAY 

D9 

R7,FLG16 
R7,R7 

B5 

27,15 

R7,8 ANGE 

D5 

RB, 
RA,CSNPDBP 


03:34:45 08/17/79 
INCRIMENT PAST PDB 
SET INPUT 

READ PROGRA¥ 

LOAD POINTER 
INCRIMENT PAST PDB 
SET? OUTPUT 

LOAD FLAG 

LOAD LO 

LOAD HIGH 

WRITE PROGRAY 

READ DIRECTORY 
LOAD SEQUENCE NUMBER 
STORE 

LOAD PDB POINTER 
STORE 

FIT EOV? 

NO 

LOAD EOY 

STORE EOV 

STORE EQY 

LOAD BLOCK POINTER 
LOAD R5-R6 

SKIP 

LOAD BLOCK POINTER 
MAXIMUM? aaa 
Y#S, ERROR 

LOAD R5-26 


SESPURE LAST 


INCRIMENT TO NEXT BLOCK 


LOAD R5-R€E 

READ NEXT BLOCK 
LOAD EQV 

STORE 

STORE 

LOAD RS-R6 

WRITE DIRECTORY 
LOAD FOR VALIDATION 
YERIFY 

SET INPUT 

LOAD TER*INATION 
DONE 

YES 

LOAD NEXT 

SETUP TO COPY NEXT 
LOOP 

LOAD NEXT LRN ada 
CONTINUE 

LOAD FLAS 

SET CC 

RETURN 

SET 

SET FLAS 

RETURN 

SET LOOP COUNT 
LOAD POINTER 


FDL12930 
FDL12940 


FBL120506.— 


FDL12060 
FDL12070 
FDL12680 
FDL12090 
FDL12100 
FDL12110 
FDL12120 
FDL12130 
FDL12140 
FDL12150 
FDL12160 
FDL12170 
FDL12180 
FDL12190 
FDL12200 
FDL12210 
FDL12220 
FDL12230 
FDL12240 
FDL12250 
FDL12260 
FDL12270 
FDL12280 
FDL12296 
©DL123090 
FDL12316 
FDL12320 
FDL12336 
FDL12340 
FDL12350 
FDL12360 
FDL12370 
FDL12380 
FDL12390 
FDL12400 
FDL12410 
FDL12420 
FDL12430 
FDL12440 
FDL12456 
=DL12460 
FDL124870 
FDL12489 
FDL12490 
FDL12506 
FDL12510 
FDL12620 
FDL12530 
FDL12540 
FDL12550 
FDL12560 
FDL12570 
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NO010046T 


AR 4A 


00101CI 
O0101EFT 
001022T 
0010261 
09102AT 
OO0102ET 
0010301 
0010321 
001034T 
0010381 
OOTO3AT 
00103EI 
0010401 
0010421 
007044T 
0010481 
OO0194AT 
OOT04ET 
0010501 
001054T 
0010561 
OO105AT 
00105EI 
0010601 
0010641 
0010681 
00106CI 
0010701 
0010721 
0010761 
O00107AI 
00107CI 
0010801 
0010821 
0010861 
OO0108ATI 
OOTOSET 
0010901 
0010921 
001096I 
O00109AI 
OO109EI 
0010A 21 
O0010A5T 
*OOTOAAT 
OOTOACTI 
OO10AET 


4890 
Z6A1 
2691 
2482 
41CO 
O84A 
H1EO 
2480 
0849 
41C0 
41E0O 
45RP0 
43B0 
2681 
26A1 
2691 
4300 
0823 
C420 
1037 
030C 
2420 
41C0 
2621 
41EO 
O8E5 
4330 
2480 
4050 
4O5O 
105C 
4230 
4150 
4530 
4&2B0 
2450 
4050 
41E0O 
0833 
4230 
0855 
4050 
4OAO 
4230 
O8S4A 
2741 
41C0 
41TEO 
4840 
4940 
41C0 
4ITEO 
236A 
2752 
4845 


weve ious 


81E2 =0011F6I 


3714 =00172EI 


81D4 =0011F6I 


8902 =0019281 
FISE =0001881 
FF38 =099F66I1 


FFD6 =Q0100EI 


8818 =001960i 
8546 =001594T 
85F6 =O0164HAT 


F136 =000190I1 
FIOE =90016CI 


85E6 =00164AI 
85F4 =00165CI 
F100 =00016CI 
85DA =00164AT 


FOF6 =00016CI 
85E2 =00165CI 


FCAA =O00D2AT 


FOE2 =000168I 
FOF6 =000180I 
BOTE =O0019ACI 


8160 =0011F6I 
8694 =00172ETI 
EFFA =000098I 
FOE8 =00018AT 
8150 =0011F6I 
8684 =00172ET 


EF68 =OOO01TAI 


4960 


1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1266 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1231 
1282 
1283 
1284 
12856 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
+309 
1310 
1311 
1312 


D128 


UPDATE 


LH 
AIS 
AIS 
LIS 
BAL 
LDAR 
BAL 
LIS 
LDAR 
BAL 


FLOPPY DIAGNOSTIC LOADEX/GENERATOR 


RE,RDLRN 
R8,% 
R4,2R9 
RC,SULH56 
RE,ARLRN 
R3,SIZEI 
11,910 
RB, 

RA, 1 

R9,1 


22,0 

RC -SPCOM 
R2,1 
RE,PACK 
B5-R5 

QUEST 

R8,0 
25,TEMSAV 
85, cCSEQNUKO 
85,12 

QUEST 
RE,RDIRECT 
R3,CSEQNUMO 
11,QUEST 
R5,0 
R5,CSEQNUMO 
RE,RDIRECT 
R3,23 

CR8 

R5,25 
R5,CSNI 
RA,NSLRN 


R4,1 
RC,SULH56 
RE,RDLRN 

R4, INBUF+126 
R4&,IPDBP 
RC,SULH55 
RE,RDLRN 

U2 

25,2 

R4, INBUFCRS) 


O8:34245 98/17/79 

LOAD POINTER 

INCRIMENT PAST PDB 
ST PDB 

SET INPIT 

LOAD RS-26 

LOAD IL2N 

READ 1 PROSPAM LEN 

SET OUTPYT 

LOAD OL24 

LOA 85-76 

WRITE 1 PROSPAM LEN 

DONE? 

YES 

INCRIMENT 

INCPIMENT 

INCRIMENT 

Loo? 

LOAD 

SAVE REMAINDER 

DIVIDE BY SHIFTING 

RETURN 

LOAD CHARACTER POINTER 

FIND DELIMITER 

INCRIMENT TO NEYT FIELD 

PACK DATA 

SET CC 

NO OPERATION 

SET OUTPIT 

SAVE 

SET CURRENT 

SCALE 

ERROR 

CHECK IF EXISTS 

FOUND? 

NO 

LOAD EOV 

SET EOV=CURRENT 

FIND FOV 

SET CC 

EOV NOT FOUND 

SET: CC 

SAVE POINTER 

SAVE POINTER 

NOT FIRST ENTRY 

LOAD BLOCK POINTER 

DECREMENT TO PREVIOUS 

LOAD R5-35 

READ PREVIC™S 

LOAD PDBP 

SAVE 

LOAD R5-R6 

READ PDB 


. SKIP 


FIND PREVIOUS PDBP 
LOAD PDBP 


“FDLI2580 


FDL12590 
FDL12000 
FDL12610 
FDL12620 
FDL12630 
FDL12640 
FDL12650 
FDL12660 
FDL12670 
FDL12680 
FDL12690 
FDL12700 
FDL12710 
FDL12726 
PDL12730 
FDL12740 
FDL12750 
FDL12760 
FDL12770 
§DL12780 
FDL12790 
FDL12800 
FDL12810 
FDL12820 
FDL12836 
FDL12840 
FDL12850 
FDL12860 
rDL1zb76 
FDL12880 
FDL12890 
FDL12900 
FDL12910 
FDL12920 
FDL12930 
FDL12940 
FDL123950 
FDL12960 
FDL12970 
FDL12980 
FDL12990 
FDL13000 
FDL13010 
FDL13020 
FDL13030 
FDL13040 
FDL13950 
FDL13066 
FDLT3070 
FDL13680 
FDL13090 
FDL 13100 
FDL13110 
FDL 13120- 
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9010321 
0010B61 
0O108AT 
OO10BET 
00190C2T 
0019C6I 
O010CATI 
0010CCI 
0010CEI 
0010D61 
0010DAI 
0010DCI 
O010DET 
0010E0I 
OO 1OENI 
OO10E6I 
OO10E8T 
OO10EAI 
OO10EEI 
0010F2I 
OO10F4T 
OO10F6I 
OO10FAI 
OO10FET 
0011021 
0011061 
OOTIOAT 
O0110EI 
0011121 
00111741 
0011187 
00111CI 
0011201 
001124T 
0011261 
00112AIr 
00112ET 
0011321 
0011361 
O9113AT 
*OO113EI 
*001140T 
001142T 
00117461 
OOT1T4AT 
OO114ET 
0011521 
001156I1 
00115AT 
00115CI 
001160T 
0011647 
0011681 
00116CTI 


4040 
41C0 
81EO 
4860 
4060 
4840 
2641 
OA46 


FOD4 =00018AI 
813C =0011F6I 
8670 =00172ET 
EF66 =0000281 
FOC2 =0090198I 
FOCO =O00018AI 


FOSA =00012CI 
F066 =00013CI 
FO55 =000140T 


FF54 =00103a8! 


FO56 =000144T 
FO90 =000182I1 


F082 =00017CI 
FC50 =O00D4ET 
FC4C =OQ00D4ET 
F086 =00018CI 
FO86 =000190I 
FO5F =00016Ci 
FO24 =0001361 


FOTE =000136I 
FO4S =000165I 
F062 =000182T 
8804 =0019281 


FOO2 =00012CI 
FOOE =00013CI 
FOOE =09001740T 
B7F2 =0019281 
8522 =00165CI 
OO1C 


0008 
8500 =00164AT 
7000 
EEC8 =O0CO1RI 


FEC6 =00001CI 
809C =O0011F6T 


87C8 =001928T 
FO1C =000180I 
8C8E =0011F6I 
85C2 =00172EI 
FO20 =000190I 


FLOPPY DIAGNOSTIC LOADER/SENERATOR PA 
1313 STH R4,IPDBP 
1314 BAL RC,SULH56 
1315 BAL RE,RDLRN 
1316 U2 LH R6,INBUF+14 
1317. STH R6,SIZET 
1318 Li R4, I PDBP 
4319 AIS R4,1 
1320 AAR R4,R6 
1321 L3 R7,FLG16 
1322 LDA R5,LOW(R7) 
1323. LDA R6,HIGH(R7) 
1324 SAR R6,25 
1325 LDAR R3,R6 
1326 AIS R3,1 
1327 BAL RC,D128 
1328 LDAR R2,82 
1329 BZS U3 
1330 AIS R3,1 
1331 U3 STH R3,LRNS 
1332 STH R4,NSLRNA 
1333 AAR R4&,83 
1334 AIS R4,1 
1335 CLH RU, MAXLRNO 
1336 BFC 10,CR91 
1337 BFC 9,CRI1 
1338 STH R4,NCPDEP 
1339 LH R6,TEMSAV 
4340 STH R6,CSEQNUMO 
1341 STH R6,SEQNUM 
1342 LIS R8,9 
1343 LDAI R5,SEQNUM 
1344 LDAI R6,SEQNUM+47 
1345 LH R4Y,NSLRNA 
1346 BAL RE,ARLRN 
1347 AIS K4,1 
1348 L8 27,FLS16 
1349 LDA 85, LOW(F7) 
1350 LDA R6,HIGH(R7) 
1351 BAL RE, WRLRN 
1352 BAL RE,R DIRECT 
1353 CLHI R2A,5TDIR 
1354 BFC 11,59 
135° B J8 
1356 U9 CLHI 85,8 
1357 BL QUEST 
1358 U8 LHI R6,X°7009" 
1359 STH R6,INBUFCRS) 
1360 STH P6,INBUF+2(25) 
1361 BAL RC,SULH56 
1362 LDAR 24,84 
1363 BAL RE, #RLEN 
1364 LH R4,NSLRA 
1355 BAL RC, SULH56 
1366 BAL RE, RDLRN 
1367 LH R26,TEMSAV 


93234345. 98/17/79 
SAVE 

LOAD R5-86 

READ PDB 

LOAD SIZE 

SAVE 

LOAD POINTER 
INCRIMENT PAST PDB 
ADD SIZEI 

LOAD FLAS 

LOAD Low 

LOAD HIGH 

FIND DIFFERENCE 
PUT IN CORRECT PLACE 
CORRECT 3YTi COUNT 
DIVIDE 

SED -€¢ 

NO REMAINDE® 
COMPENSATE FOR REMAINDER 
STORE TO PDB 

SAVE FOR VERIFY 
ADD IN NEW SIZE 
ADD IN PDB 

FIT? 

TOO BIG 

TOO BIG 

SAVE 

RE-LOAD POINTER 
SET CURRENT 

SAVE TO PDB 

SET OUTPOT 

LOAD LOW 

LOAD HISH 

LOAD START LRN 
4#RITE PDS 
INCRIMENT P&st PD3 
LOAD FLAG 

LOAD LOd 

LOAD HIGH 

WPITR PROGRA® 


FIND MATCHING SEQUCNCE NUMBER 


FIRST LEN ? gaa 
es 


RST O8 SECOND ENTRY? 


LOAD DELETE CHARACTER 
OELETE 

DELETE 

LOAD 25-26 

LOAD BLOCK POINTER 

#RITS DIRECTORY 

LOAD EGY BLOCK POINTER 

LOAD 25-25 

READ DIRECTORY 3LOCK 

LOAD JPDATE SEQUENCE NUMBER 


FDL13133 
FDL13148G 
F0L13150 
FDL1316060 
FDL13170 
FDL13180 
FDL13190 
FDL13200 
FDL12210 
FDL13220 
FDL13230 
FDL13240 
FDL13250 
FDL13250 
FDL13279 
FDL132280 
FDL13290 
FDL13300 
FDL13310 
FDL13320 
FDL13330 
FDL13340 
FDL13350 
FDL13360 
FDL13370 
FDL13386 
FDL13390 
FDL134909 
FDL13410 
FDL13420 
FDL13430 
FDL13440 
FDL13450 
FDL13450 
FDL13470 
FOL13480 
FDL13490 
FDL13500 
FDL13516 
FDL13526 
FDL13530 
FDL1354¢ 
FDL13556 
FDL13566 
FDL13576 
FDL13580 
FDL13590 
FDL13600 
FDL13619 
*DL136206 
F9OL13639 
FDL12640 
FDL13650 
FDL13669 
FDL13670 


aM 


an 


94-225F02N91R01A13 


00118901 
0017841 
0617831 
00118CI 
0011307 
0011941 
0011981 
00119CI 
OO171A0I 
OO11A4I 
00171A381 
OOTTACI 
0011801 
0011321 
0011B5I 
O011BAI 
O0O11BET 
0011COI 
OOTICYT 
0011C8I 
OO1TTCAL 
00171CEI 
*0011D2I 
0011D47 
0011D81 
OOTIDAT 
0011DeT 
OOTFTE2T 
OOTTEGI 
OO1T1TEAI 
OO1TEET 
OO047PF 21 
OOTTF ST 
OO11FAI 
0011FET 
0012007 
00142021 
00142061 
OOT20AT 
OOT20ET 
0012121 
0012161 
OOT2ZIAT 
OO127ET 
0012201 
0072241 
0012281 
00122CI 


00142301 . 


001232T 
001236 


uBEO 
8065 
4860 
4065 
41C0 
41E0 
4850 
C550 
4330 
C550 
4280 
4850 
C560 
4230 
41C0 
41EO 
2561 
4060 
4060 
4300 
2641 
4&1CO 
41E0 
2460 
4960 
4060 
2308 
4850 
2460 
4CE5 
4065 
41C0 
41E0O 
4840 
NFO 
4300 
E650 
E660 
030C 
2480 
E6 30 
D320 
4150 
4300 
41C0 
£630 
D320 
2480 
4100 
4300 
E630 
D320 
2480 
4100 
4300 


EEA2 
F006 
EE9C 
8072 
87A0 
FFDC 
007C 
BO2A 
0078 
893C 
EFE2 
OO01F 
802C 
SO4A 
857E 


EEEO 
EEDE 
8024 


8032 
8566 


EE4C 
EEA 


EF90 


EE4O 
EE3E 
8010 
873E 
EFA2 
F904 
801C 
EE20 
EESB 


87E6 


892D 


8070 
86DE 
F238 
87E0 
891C 


805A 
86C8 
8894 
B90A 


8048 
B6B6 


FLOPPY DIAGNOSTIC LOADER/GENERATOR PAGE 
=000768T 1368 —_ BSP Ssh. 
=O00G1AT 1365 STH R6,1NBUFC(R5) 
=000182T 1370 LH 86,NSLRNA 
=00001CI 1371 STH R6,INBUF+2(25) 
=0011F6I 1372 BAL RC,SULH56 
=00171928T 1373 BAL RE,WRLRN 
=000168I 1374 LH R5,CSNI 

1375 CLHI 25,724 
=O011BELI 1376 BE 363 

1377 CLHI 85,120 
=0011D8I 1378 BL 368 
=000182I 1379 LH KR6,NSLRNA 

1380 CLHI R6,=NDDIR 
=0011D41 1381 BNE U64 
=O011F6I 1382 U65 BAL RC,SULH56 
=00172EI 1383 BAL RE,RDLRN 

1384 LCS R6,1 
=000096I1 1385 STH R6,INBUF+124 
=000098I 1386 STH R6,INBUF+126 
=0011F21I 1387 B v67 

1388 U63 AIS R4,1 
=O01TF6I 1389 BAL RC,SULH56 
=O0172EI 1390 BAL RE,RDLRN 

1391 LIS 26,90 
=OO00TAT 1392 ST} R6,ITNBUF 
=00001CI 1393 STH R6,INBUFtH2 

1394 B U67 
=0001681 1395 U64 LH R5,CSNI 

1396 U68 LIS R6,0 
=OO001EL 1397 STH R6,INBUF+4(25) 
=000020I1 1398 STH R6, INBUF+6(R5) 
=0011F6I 1399 U67 BAL RC,SULH56 
=001928I 1400 BAL RE, WRLRN 
=000190T 1401 U66 LH R4,TEMSAV 
=OOOAF6I 1402 BAL RF,CHKPGM 
=001212I 1403 B EOJ 
=OQ001AI 1404 SULH5S56 LDAI R&5,INBUF 
=0000991 1405 LDAI R6,INBUF+127 

1406 BR RC 

1407 EOD LIS 28,0 
=0019ECI 1408 LDAI R83,EODMSG 
=001B371 1409 LB R2,EQDMSGS 
=00127EI 1410 BAL RD,FINDCON 
=0018FO0I 1411 B POUND 
=OO004U4ET 1412 EOJ BAL RC,CLRDIS 
=O019FAI 1413 LDAI R3,EQJMSG 
=OO1B3AL 1414 LB R2,EOQJMSGS 

1415 LIS RB,9 
=00127FI 1416 BAL RD, FINDCON 
=00178FOL 1417 B POUND 
=901ACOI 1418 EOYV LDAI 23,E0VM 
=O01B3AI 1419 L8 R2,E0VMS 

1420 LIS Kk8,0 
=00127EI 4421 BAL RD,FINDCON 
=0018FOI 1422 3 POUND 


04:34:45 68/17/79 


LOAD EOQY BIS POINTER 
WRITE SEQUENCE NUMBER 
LOAD POINTER 

#RITE PDB POINTER 
LOAD R5-x6 

a#RITE DIS ECTORY 
RE-LOAD POINTER 

LAST ENTRY IN BLOCK? 
YES 

NEXT TO LAST? 


LOAD BLOCK POINTER 
LAST BLOCK 


LOAD 25-26 
RE-READ LAN 
LOAD EOD 

WRITE EOD 
WRITE EOD 
VERIFY 

GET NEXT BLOCK 
LOAD R5-R86 
READ NEXT BLOCK 
LOAD EOV 

STORE EOV 
STORE EOV 

SKIP 

LOAD BIB POINTER 
LOAD EQY 

qRITE EQV 
WRITE EOV 

LOAD x5-26 
ARITE DIRECTORY 
LOAD SEQUENCE NUMBER 
VERIFY 

DONE 

LOAD LOW 

LOAD HIGH 
RETURN 

SET OUTPUT 
LOAD ADDRESS 
LOAD SIZE 
PRINT 

RE-START 

CLEAR DISPLAY 
LOAD ADDRESS 
LOAD SIZE 
SET OUTPIT 
PRINT 

RE-START 

LOAD ADDRESS 
LOAD SIZE 

SET OUTPUT 
PRINT 

RE-START 


FDL13686 
FDL13690 
FDL13700 
FDL13710 
FDL13720 
FDL13730 
FDL13740 
FDL13750 
FDL13760 
FDL137706 
FDL13780 
FDL13790 
FDL13800 
FDL13810 
FDL13820 
FDL13830 
FDL13840 
FDL13850 
FDL13860 
FDL13870 
FDL13380 
FDL13890 
FDL13900 
FDL13910 
FDL13920 
FDL 139390 
FDL13940 
FDL13950 
FDL133960 
20L13970 
FDL13980 
FDL13990 
FDL14000 
FDL14010 
FDL148020 
FDL140 30 
FDL14040 
FDL14050 
FDL14060 
FDL14070 
FDL14080 
FDL14090 
FDL14100 
FDL14110 
FDL14120 
FDL14130 
FOLT&140 
FDL14159 
FDL14160 
FDL14170 
FDL14180 
FDL14190 
FDL74200 
7DL14210 
FDL14226 


owes T 
# ar ty 


a a ay 

Cae aa 
NO) oe NY WD 
Peo pd ba Pet bet Ra bad et 


» 


* 
WOOO Ot) mo 


bho NO ND ND A ROR oD 


Www > o> Or Ld ot ec? 


a a a % 


WOE 


*393912531 
S3125AT 
99125C7 
9912691 
0512621 
9912651 
9312681 
95126CI 
99172701 
0912741 
0012761 
09127aAI 
001427ET 
0912221 
9912361 
9912341 

*09128CI 

G27245T 
0212921 

*O012947 
001256T 
OST29AT 
09729CT 

*09129e1 
DO12A0i 
SOT2AUT 
OOV2AHT 

*OO12A81 
OOT2AAT 
0912AzT 
0912307 

*091252! 
99123847 
09172381 
09128AT 

*09123CI 
99123ET 
0072C21 
0072Cu4l 
09172C3T 
091Z2CCI 
0012D90I 
G012D41 
0012D8I 
0012DCI 


25FO92491R01A13 


24720 
H1CO 
2621 
D332 
C530 
2358 
C520 
2323 
43900 
2482 
2302 
2420 
41C0 
2621 
41E0 
40a 
105C 
42306 
41E0 
0833 
4330 
4300 
C800 
C210 
2712 
40C1 
2033 
D3A9 
27A4 
2134 
41C8 
0305 
27A1 
2134 
41C8 
C20D 
27A1 
2134 
41C8 
030D 
27514 
2134 
41C8 
03C5 
27A1 
2039 
41C8 
O3¢D 
#23C0 
4360 
4300 
4300 
4306 
4300 
0388 


8620 


EFOC 
OO04F 


0049 


83°4 


8028 


BQ1E 


390C 


8012 


a2E4 
F730 
FBBO 
F72E 
F53A 
F6CC 


FLOPPY DIAGNOSTIC LOADER/GENERATOR PAGE 
1423 FIND R2,5 
=001860I1 1424 RC,SPCOM 
1425 R2,1 
=O0000E2T 1426 R3,CONIN(R2) 
1427 R3,C*O* 
1428 11,FINDO 
1429 R3,c°I® 
1430 11,FINDI 
=O0164AT 1431 QUEST 
1432 FINDI R8,2 
1433 FINDC 
1434 FINDO R8,0 
=001860I 1435 FINDC RC,SPCOM 
1436 R2,1 
=001594T 1437 RE,PACK 
=00016CI 1438 R5,CSEQNUMOCR8B) 
1439 R5,12 
=OO0164AT 14490 QUEST. 
=00165CI 1441 RE,RDIRECT 
1442 R3,R3 
=0012281 1443 EOV 
=0012121 1444 EOJ 
1445 FINDCON RO,K*°2020° 
1446 R1,72 
1447 FCO R1,2 
=Q000F2T 1448 RO,CONINC(R1) 
1449 FCO 
=0000101 1450 RA,DEVTYP 
1451 RA,1 
1452 FC1 
=0012C4) 1453 RC,PASLA(R8) 
1454 ED 
1455 FC1 PA,1 
1456 FC2 
=0012CCI 1457 RC,CLI(R8) 
1458 RD 
1459 =FC2 RA,1 
1460 FC4 
=0012CCI 1461 FC3 RC, CLIC R28) 
1462 RD 
1463 FC4 RA,1 
1464 FCS 
=0012C4KT 1465 RC,PASLACRS) 
1466 RD 
1467 FCS RA, 1 
1468 FC3 
=0012D41 1469 RC,NBCRS) 
1470 RD ~ 
=0015ACI 1471 PASLA PASLAO 
=O09009FCI 1472 PASLAI 
=O00B80I 1473 CLI TTY9 
=O000A02I 1474 TTY? 
=0008 121 1475 MB MBO 
=OO0SAR8T 1476 MBIT 
1477 FINDDRY R8,R8 


63:34:45 08/17/79 


CLEAR CHARACTER POINTER 


FIND DELIMITER 
INCRIMENT PAST 


LOAD 45T CHARACTER 


O INPUT 

OUTPUT DEVICE 

I INPUT 

INPUT DSVYIC® 
INVALID INPUT 
SET INPJT FLAG 
GO TO COMMON 
SET OUTPUT FLAG 
FIND DELIMETER 
INCRIMENT PAST 


PACK + CONVERT DATA 


SAVE 
SCALE 
ERROR 
FIND IF EXISTS 


LOAS RETURNED SEQUENCE 


EQY ENCOUNTERED 
DONE 

LOAD BLANK 

LOAD COUNT 
DECREMENT COUNT 
STORE 

LOG? 

LOAD DEVICE TYPE 
DECREMENT 

NOT = 1 

PASLA DEVICE(CRT) 
RETURN 

DECREMENT 

NOT=2 


CURRENT LOOP DEVICE 


RETURN 
DECREAENT 
NOT=3 

DEFAULT TO TTY 
KRETIRN 
DECREMENT 
NOT=4 


PASLA DEVICE(CAPROUSEL) 


RETURN 

DECREYMENT 

NOT=5 

MICRO-BUS DEVICE 
ReTURN 

OUT ON PASLA 

IN ON PASLA 


OUT CN TUIRRENT LOOP 
IN 3N CURRENT LOOP 


OUT ON MICRO-BUS 
IN ON MICRO-BUS 
LOAD I/D FLAS 


FDL14230 
FDL14240 
FDL14250 
FOL14260 
FDL14270 
FDL14280 
FDL74290 
FDL14300 
FDL14310 
FOL14&320 
FDL14330 
FDL14340 
FDL14350 
FDL14360 
FDL14&370 
FDL14380 
FDL14390 
FDL14400 
FDL144610 
FDL14420 
FDL14430 
FDL14440 
FDL14450 
FDL14460 
FDL14470 
FDL144U80 
FDL148490 
FDL146506 
FDL14510 
FDL14520 
FDL14630 
FDLI4S546 
FDL14550 
FDL14560 
FDL14570— 
FDL14580 
FDL14590 
FDL14606 
FDL14610 
FDL14620 
FDL14430 
FDL1U640 
FDL1Gé50 
FDL18660 
FDL14670 
FDL14680 
FDL14690 
FDL14700 
FDL1&4710 
FDL14720 
FDL147306 
FDL14740 
FDL14750 
7DL14760 
FDL14770 


06-~225FO2"91R01A13 


*OO12ZDEI 
0012E0I 
*0012E4I 
0012E81 
OO012EAL 
*0012EEI 
0012F 21 
0012F4I 
0012F8I 
0012FCI 
0013001 
0013021 
0013041 
0013081 
00130CI 
00130EI 
0013101 
0013121 
0013141 
0013181 
00131AI 
00131CI 
00131EI 
0013201 
0013241 
0013261 
00132Al 
00132EI 
0013301 
0013342 
*001338I 
00133AI 
00133EI 
0013421 
0013461 
00134AI 
0013451 
0013501 
0013541 
0013581 
00135AI 
00135E1 
0013621 
0013661 
00136AI 
00136EI 
0013721 
0013761 
0013781 
00137AI 
00137£I 
0013801 
#0013841 


001385! . 


00133AI 


2136 
4840 
CA40 
235 
4840 
CA&O 
030C 
4400 
C840 
4818 
2421 
0612 
41C0 
C320 
9824 
9E21 
9D23 
2081 
D9Zz5 
2652 
0565 
2284 
9223 
C330 
2126 
410 
4048 
O30E 
4100 
C540 
2185 
CB40 
4300 
4040 
E6 30 
D320 
2480 
4100 
4300 
2480 
41E0 
41FO 
41F0 
E640 
4040 
4040 
4300 
2440 
2450 
49045 
26£2 
C550 
2GR5 
C840 
8100 


9000 


0050 


85DA 
EEWE 


85D0 
O79E 


OOTA 
FFBA 
EE36 
B6B4 
B7ED 


FF2A 
8598 


FF96 
8014 
85B2 
0020 
EEE 
FE10 
FESC 


Ec9C 
0080 


001C 


F7D2 


=0001781 


=Q00B60I 


=000170I 


=Q011F6I 
=000017T 


=0019041 
=Q0017CI 


=0019047T 


=0012FCI 
=00017CI 
=0019FEI 
=001B3BI 


=00127ET 
=0018FOTI 


=0012F4T 
=0013761 
=0019181 


=00018CI 


=000182T 
=001212T 


=OO00TATI 


i47a 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1436 
1487 
1488 
1489 
1490 
14914 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 


FLOPPY DIASNOSTIC 


FD1 


LEAVE 
FMAXLRN 


FN1 


FM2 


AGAIN 


MEDERR 


INIT 


INITDIR 


ID1 


RD,RESET 
R4,X'"7D2' 
R1,PRECMDOCRB) 
R2,1 

R1,R2 
RC,SULH56 
R2,FLPAD 
R2,R4 

R2,81 

R2,R3 

9,1 

R2-9(R5) 

R5,2 

R6,R5 

FM2 

R2,?3 

R3,X°50° 
2,AGAIN 
RD,STOP 
R4,MAXLRNOCRS) 


R4&,¥4AXLRNO 
R3,MEDMSG 
R2,MEDMSGS 
R8,0 

RD, FINDCON 
POUND 

R8,0 

RE, FMAXLRN 
RF, INITDIR 
RF,WRTBOOT 
R4&,STSAYV 
R4&,NCPDBP 
R4,NSLRNA 
EOJ 

R4,0 

R5,9 
R4,INBUFCRS5) 
R5-2 
R5,128 
11,101 
R4,5TDIR 
RD,RESET 


93:34:45 68/17/79 


INPUT RODE 

LOAD INPUT DRIVE ¢ 
LOAD 

BXIT 

LOAD OUTPUT DRIVE # 
LOAD 

RETURN 

IDLE CHECK 

LOAD MAX GOOD LHN 
LOAD PRECOMMAND 
LOAD READ CMD BITS 
MERGE 

LOAD R5-26 

LOAD ADDRESS 

WRITE Len @ 

ISSUE READ 

SENSE STATUS 

4AIT FOR BUSY NOT 
READ DATA 

BUMP 

DONE?? 

NS, LOOP 

SENSE STATUS 

TEST FOR DEFECTIVE TRACK 
TRY NEXT 

STOP 

STORE MAX 

RETURN 

STOP 

EXCEEDS MINIMUM 
Y=S 

DECREMENT 

GO AGAIN 

STORE -RESULT 

LOAD ADDRESS 

LOAD SIZE 

SET OUTPUT 

PRINT 

RE-START 

SET OUTPUT 

FIND MAXIMUM LRN 
INITIALIZE DIRECTORY 
WRITE LRN 5 

LOAD INIT VALUE ada 
INITIALIZE 
INITIALIZE 

PRINT EOJ 

CLEAR STORAGE 
CLEAR POINTER 
STORE 

INCRIMENT POINTER 
DONE 

LOOP 

LOAD FIRST LRN aaa 
IDLE CHECK 


FDLI47386 
FDLIG796G 
FDL14806 
FDL14810 
FDL14820 
FDL148 306 
FDL14546 
FDL148so 
FDLI4E60 
FDL148706 
FDL14820 
FDL148956 
FDL14900 
FDL14910 
FDL14920 
FDL14930 
FDL14940 
FDL14956 
FDL14960 
FDL14970 
FDL14980 
FDL1499¢6 
FDL159000 
FDL15010 
FDL15020 
FDL15030 
FDL15040 
FDL15050 
FDL15060 
FOL15970 
FDL150890 
FDL15090 
FDL15100 
FDL15110 
FDL15120 
FDL15130 
FDL15140 
FDL15150 
FDL15160 
FDL15170 
FDL1518C 
FDL15190 
FDL15200 
FDL152170 
FDL15220 
FDL15230 
FDL15240 
FDL15250 
FDL15266 
FDL15270 
FDL15280 
FDL15290 
FDL15300 
FDL15310 
FDL1532C 


or 


06-225FO2N91RC1A13 


00138EI 
0013921 
0013961 
0013981 
90139CI 
0913A0I 
0013A21 
9913A61 
0073AATI 
0013ACI 
0913301 
0013B4I 
0913881 
9013BCI 
0013BETI 
0013C2T 
*0013C4I 
0013C6I 
00173C8T 
0913CCT 
0013D0I 
*0073D4T 
0013D6I 
0913D8I 
0073DCI 
0013E0I 
*O0013 241 
6013241 


0313E6I 
JO13EATI 
9913ECT 
9913FOI 
GO13F4T 
*OO13F8I 
OO13FAT 


41C0 
4150 
2641 
41C0 
41E0 
2641 
41C0 
41FO 
2541 
4OUO 
C840 
41C0 
41E0 
030F 
C8 10 
OA11 
2319 
2412 
D210 
E6CO 
4000 
2309 
2410 
D210 
E6CO 
4000 
2301 


C800 
9530 
C8Cc0 
40C0 
4000 
24C0 
4000 


FE64 
8592 


FE5A 
8588 


FE50 
857E 


ECE8 
0O1F 
FE3E 
856C 


4000 


ED60 
8016 
OO3E 


EDS50 
8906 
0O3E 


20F0 
OOFO 
0032 
OO3A 


0030 


FLOPPY DIAGNOSTIC LOADER/GENERATOR PASE 
=0011F61 1533 BAL RC, SULH56 
=0019281 1534 BAL RE,WRLRN 

1535 AIS R4,1 
=O011F6I 1536 BAL - RC,SULH56 ~ 
=001928I 1537 BAL RE,WRLRN 

1538 AIS R4,1 — 
=OO011FET 1539 BAL RC,SULH56 
=0019281 1540 BAL RE,ARLRN 

1541 LCS R4,1 
=000098T 1542 STH R4,INBUF+126 

1543 LHI R4,ENDDIR 
=0011F6I 1544 BAL RC,SULH56 
=0019281 1545 BAL RE,ARLRN 

1546 BR RF 

1547 LCORE LHI R1,X°4000° 

1548 AAR R1,81 

1549 BNM BIG 

15590 LIS R1,2 
=00012CI 1551 STB R1,FLG16 
=0013E6I 1552 LDAI RO,SETUPA 

1553 STH RO,X*3E° 

1554 B SETUPA 

1555 BIG LIS R1,9 
=00012CI 1556 STB R1,FLG15 
=0013E6I 1557 LDAI RO,SETUPA 

1558 STH RO-Z°3E* 

1559 B SETUPA 

1560 IFZ ADC-2 

1561 SETUPA LHI RO,X*20F0° 

1562 EPSR 43,R0 

1563 G0O156 XAR RO,RO 

1564 STH RO,X*2C* 

1565 STH RO,X°30° 

1566 STH R0,X°32° 

1567 STH RO,X°34° 

1568 STH RO,X° 38° 

1569 STH RO,X°3A° 

1570 STH RO,X"3C* 

1571 STH RO,X*°44" 

1572 STH RO,X*4C* 

1573 LHI RO,REGSAVA 

1574 STH RO,X*22° 

1575 LDAI R0O,ILLIST 

1576 STH RO,X°36° 

1577 LDAI &O,MCHMAL 

1578 ST! RO,X*3E° 

1579 BR RC 

1530 ELSE 

1581 SETUPA LHI = R0,X*20F0° 

15382 EPSR R3,R0 

1583 GO32A LHI xKO,X°FO’ 

1584 STH R0,4°32" 

1535 STH RO,X*3A° 

1586 LHI RO0,9 

1587 STH RO,X*30° 


08234:45 98/17/73 
LOAD R5-R6 

WRITE FIRST LRN 

LOAD SECOND LRN 

LOAD R5-R6 

WRITE SECOND LRN 


LOAD THIRD LRN 


LOAD R5-R6 

WRITE THIRD LRN 

LOAD EOD 

STORE 

LOAD LAST LRN 23d 

LOAD R5-26 

WRITE LAST L&N 

RETURN 

LOAD TEST PATTERN 

DOUBLE 

32BIT MACHINE 

SET 16 BIT FLAG 

STORE 

SETJP MM TO POINT TO SETUP 
TO REMOVE ANY PENDING KMALF 
GO 

CLEAR 16 BIT FLAG 

STORE 

SETUP MH TO POINT TO SETUP 
TO REMOVE ANY PENDING MMALF 


GQ 


LOAD PSa 

Sa#AP 

LOAD PSW® CONSTANT 
STORE 

STORE 

STORE 

STORE 

STOZE 

STORE 

STORE 

STORE 

STORE 

LOAD SAVA POINTER 
STORE TO POINTER 
LOAD ADDBES* 
STORE 

LOAD ADDRESS 
STORE 

RETURN 


LOAD PSw 

SWAP 

LOAD PSd CONSTANT 
STOR= 

STORE 

LOAD PS CONSTANT 
STORE 


FDL 15330 
FDL15340 
FDL15350 
FDL15360 
FDL15370 
FDL1538¢ 
FDL15396 
FDL15400 
FDL15416 
FDL15420 
FDL15430 
FDL15440 
FDL15450 
FDL15460 
FDL15470 
FDL15480 
FDL15490 
FDL15500 
FDL15510 
FDL15520 
FDL15530 
FDL15540 
FDL15550 
FDL15560 
FDL15570 
FDL15580 
FDL15590 
FDL15600 
FDL15610 
FDL15620 
FDL15630 
FDL15640 
FDL15650 
FDL15060 
FDL15670 
FDL15680 
FDL15696 
FDL15700 
FDL15710 
FDL15720 
FDL15730 
FDL15740 
FDL1£756 
FDL1576G 
FDL15770 
FDL15780 
FDL15799 
FDL15800 
FDL15610 
FDL15820 
FDL15830 
FOL15840 
FDL15850 
FDL15360 
FDL15870 


O6-22E5FO2N91R891A13 


GOiSFEI 
0014021 
0014061 
OO140AI 
OO140EI 
0014121 
0014161 
O0141AI 
OO1THTEL 
O001424T 
0014281 
00142CI 
0014301 
0014361 
00143AI 
00143ET 
001442T 
0014461 
OO144AT 
OO144ET 
0014521 
0974561 
OO145AT 
OO145EI 
0014621 
0014641 
00174681 
00146CI 
0014701 


0014721 
0014761 
OOT47AL 


00147EI 
0014821 
*001484T 
0014861 
OO148AI 
OO148ET 
*0014921 
0014947 
001498T 
00149CT 
OO14A0T 
OOT4A4T 
OO14A6TL 
OO14AAT 
OO14AET 
0014B0T 
OOT4B4T 
OO14B8T 
OOT4BAT 


OO14BET © 


0OO14C0OT 


RANK 


4000 
4000 
4000 
4600 
E600 
5000 
E6C0 
5000 
F800 
c400 
CA0O 
4000 
Feod 
C4&Go 
CACO 
4000 
F630 
5030 
E630 
50230 
E630 
5030 
E630 
C840 
2454 
C8é0 
5034 
C140 
030C 


D3z0 
E630 
4300 
0000 


nA 


0634 
0038 
003C 
0040 
8060 =001472T 
0034 


8064 =00147EI 


003C 

0000 1B48lt 
FFOO 

0100 

0084 

0000 1B50I 
FFOO 

0108 

0086 

8098 =0014DET 
9094 

899C =O014EATI 
oocc 

80A0 =0014F6I 
908C 

BOA4H =001502T 
009C 


OOBC 
0000 
FFF8 =001468I 


86C6 =001B3CI 
8594 =O001A0EI 
8030 =O014AEI 
VUTEI 

ECAA =00012CI 


0038 
0001 
8036 =0014C8I 


0040 
8036 =0014D2I 
8028 =0014C8I 
OOFO 


8692 =09183CI 
8574 =001A221 


FDCA =00127EI 
20F0 


EC6F =00012DI 


EB3C =000000I1 


arnan 
P3206 


1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1408 
1509 
1410 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1532 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 


LCLP 


ILLIST 


MCHMAL 


MM32 


MCHMAL3 
MCHMAL2 


MCHMAL4Y 


MCHMAL1 


FLOPPY DIAGNOSTIC LOADER/GENERATOR 


nA vada 
NUgA 3 


RO,X°38° 
RO,X‘°3C° 
RO,x°4O' 
RO,ILLIST 
RO,X‘'34°* 
RO,MCHMAL 
RO,X*3C* 
RO,PSWSAVA 
RO,X*FFOO' 
RO,X*100' 
RO,X*B4" 
RO,REGSAVA 
20,X°F FOO’ 
RO,X*108° 
RO,X°86° 
R3,RELPROT 
R3,X*9u* 
R3,3NDYERR 
R3,X*CC* 
R3,SYSQERR 
R3-X°8C’ 
R3,SVCERR 
R4,X°9C° 
R5,4 


R6,X°9C +32 


R3,0(R4) 
R4,LCLP 
RC 


R2,ITLLASGS 
R3,ILLMSG 
MCHMAL4 

* 

R1,FLG16 
R1,R1 

MM32 
R1,X%°38" 
Ri,xX’1° 
PFAIL 
MCHMAL3 
RO,X°4O0' 
NEW32 
1,PFAIL 
RO,X°FO* 
R1,R0 
R2,MMEFMSGS 
R3,4MFMSG 
R8,9 
RD,FINDCON 
RO,X°20F0° 
R1,20 
RO,LDFLG 
RO,RO 
STARTL 


Qd2> 34245 OB/17/79 


STORE 

LOAD ADDRESS 
STORe 

LOAD ADDRES: 
STOR. 

GET ADD&eSS 
MAKE X*100° BOUNDARY 
MAKE > OPFIGINAL 
STORE 

SET ADDRESS 
MAK= X*100' BOUNDARY 
MAKe > ORIGINAL 
STORE 

LOAD ADDRESS 
STORE 

LOAD ADDRESS 
STORE 

LOAD ADDRESS 
STORE 

LOAD ADDRESS 
LOAD 

BXLE 

LIMITS 

STORE 

LOOP 

RETURN 


LOAD SIZE 
LOAD ADDRESS 
RE-ENABLE 


GET FLAG 

SET CC 

32 BIT MACHINE 
GET OLD PSW 

L FLAG SET?? 
NO, POWER DOAN 
POWER UP 


GET POSSIBLE REASON CODE 


SERIES 32 

EARLY POWER FAIL 
LOAD NEW PSd 
DROP MNF INTERRUPT 
LOAD SIZE 

LOAD ADDRESS 

SET OUTPUT 

PRINT 

LOAD CONSTANT 
SWAP PSW 

SET FLAS 

SET CC 

RE-sTART LOADER 


FOL152890 
FUL15696 
FDL15900 
FDL159106 
FDL15920 
FDL15930 
FDL15940 
FDL15950 
FDL18966 
FDL15970 
FDL15980 
FDL15990 
FDL14000 
FDL16G61C€ 
FDL15020 
FDL160 30 
FDL16040 
FDL16C5C€ 
FDL16960 
FDL 16076 
FDL16080 
FDL16090 
FDL16100 
FDL16110 
FDL16129 
FDL16130 
FDL16146 
FDL16156 
FDL16146¢ 
EDL1617C 
FDL1186 
FDL16196 
FDL145200 
FDL16216 
FDL16220 
FDL16230 
FDL162460 
FDL16250 
FDL16260 
FDL16276 
FDL16280 
FDL16299 
FDL146 309 
FDL16 316 
FDL163256 
FDL1633¢ 
FDL15340 
FDL1635¢ 
FDL1636¢ 
FDL16 37% 
FDL16 34¢ 
FDL1639G 
FOL1649¢0 
FDLI641¢6 
FDOL1E42¢ 


ihe] 
it 
14am 


mm 


06-225FO2M91R01A13 


OO14C4HI 
oo7scel 
00174CCI 
OOT4SCET 
*0014D90I 
*0014uD2TI 
o0o014D4l 
0014D5I 
OO14DAT 
OOT4DET 
OOT14E2T 
OO14E6I 
OO14EAT 
OOT4EET 
OO14F 2I 
OO14F6I 
OO1KFAT 
OO14FET 
0015021 
0015061 
OOTSOAI 
O00 150EI 
0015101 
9015141 
0015161 
JO1STAI 
09151EI 
991522r 
0015241 
9015231 
00152CI 
*O00152EI 
9015301 
0015341 
*001538I 
O0O0153AT 
00153EI 
001542T 
0915461 
OO154AT 
00154CT 
0915501 
09015541 
9015561 
OO1S55AI 
OO0155EI 
*001560I 
0015621 
0015661 
*00156Al 
99156CI 
0015701 
00715741 
0015781 
OO157CI 


4300 
C800 
17104 
9510 
2204 
2015 
2400 
4000 
4300 
D320 
F630 
4300 
D320 
E630 
4300 
D320 
E630 
4300 
D320 
£630 
4300 
2420 
41C0 
2621 
D370 
4020 
4150 
0232 
4B 30 
D370 
0877 
2336 
C530 
4220 
2305 
C530 
4220 
5057 
41C0 
2621 
4020 
41EQ 
9632 
4B30 
D370 


8428 
OAOF 


0040 
FFC6 
8658 
8600 
FFC4 
8655 
8614 
FFB8 
8649 
861A 
FFAC 
863E 
8620 
FFAO 


834C 


EC12 
EC72 
8072 


EC68 
ECOO 


0004 
8112 


0006 
8108 
EBF6 
8316 


EC4O 
8040 


EC36 
EBCE 


0004 
80E0 


0006 
80D6 
E8C8 
EBCO 
FFBC 


FLOPPY DIAGNOSTIC LOADER/SENERATOR PAGE 

=0018FO0TI 1643 B POUND 

1644 PFAIL LHI RO,X*OAGE' 

1645 SLLS kO,4& 

1646 EPSR 321,80 

1647 B PFAIL 

1648 NEW32 B¥ PFAIL 

1649 LIS RO,9 

1650 STH RO,X*48O° 
=O014UA4T 1651 B MCHMAL2 
=001B3DI 1652 RELPROT LB R2,R8PNSGS 
=O012 E6I 1553 LDAI 23,R2PMSG 
=OO14AET 1654 B MCHMALG 
=001B431 1655 BNDYERR LB R2,3NDYMSGS 
=001B06T 1656 LDAI &3,3NDYMSS 
=OO014AET 1657 B MCHMAL4 
=001B43I 1658 SYSQERR Ls R2,5YSQ4SGS 
=001B181 1659 LDAI R3,5YSQMNSG 
=OO THAET 1660 B MCHAALS4 
=O001B44TI 1661 SYCERR LB R2,S¥C4SGS 
=O01B2AI 1662 LDAT R3,SYCM4SS 
=OOTKAET 1663 B MCHMALS 

1664 LIMITS LIS R2,0 
=001860I 1665 BAL RC,SPCOM 

1666 AIS R2,1 
=00012CI 1667 LB R7,FLG16 
=0001901 1668 STH R2,TEMSAYV 
=0015941 1669 BAL RE,PACK 

1670 LDAR 23,2 
=000190T 1671 SH R3,TEMSAY 
=00012CI 1672 LB R7,FLG16 

1673 LDAR R7,R7 

1674 BZ LIMN32 

1675 CLHI R3,4 
=OO1T6HAT 1676 BTC 2,QUEST 

1677 B LIM2 

1678 LIM32 CLHI 3,5 
=00164AT 1679 BTC 2,QUEST 
=00013CI 1680 LIM2 STA R5,LOW(R7) 
=001860I 1681 BAL RC,SPCOM 

1582 AIS R2,1 
=000190T 1683 STH R2,TEMSAYV 
=0015947 1684 BAL RE,PACK 

1585 LDAR R3,22 
=000190I 1686 Sd R3,TEMSAYV 
=00012CI 1687 LB R7,FLG16 

1688 LDAR R7,R7 

1689 BZ LIM32A 

1690 CLHI 3,4 
=OO0164UAT 1691 BTC 2,QUEST 

1692 B LI43 

1693 LIMN32A CLHI 23,6 
=00 164AT 1694 BTC 2,QUEST 
=0001480T 1695 LIM3 STA R5,H1SY(27) 
=00913CI 1596 SA R5,LOW(R7) 
=000D3CI 1697 BTC 8,C29 


O03234:45 08/17/79 


RE-START 
LOAD NEW PSd 
SCALE 


SET WAIT & ENABLE FOR PSWER-UP 


BRANCH/LOOP 
POWER DOWN 
CLEAR 
STORE 


POWER UP OR OTHER 


LOAD SIZE 

LOAD ADDRESS 

GO TO COMMON 
LOAD SIZE 

LOAD ADDRESS 

GO TO COMMON 
LOAD SIZE 

LOAD ADDRESS 

GO TO COMMON 
LOAD SIZE 

LOAD ADDRESS 

G3 TO COMMON 
CLEAR CHARACTER 
FIND DELIMITER 
INCRIMENT PAST 
LOAD 16 FLAG 
SAVe POINTER 
PACK + CONVERT 
SET NEW POINTER 
FIND DIFFERENCE 
LOAD FLAS 

SET CC 

SKIP IF 32 BIT 
& CHARACTERS ? 
TOO MANY 
CONTINUE 


MORE THAN 6 DIGITS ? 


ERROR 

STORE TO LOW 
FIND DeLIMITER 
INCRIMENT PAST 
SAV= POINTE? 
PACK &@ CONVERT 
GET NEW POINTEP 
FIND DIFSER ENCE 
LOAD 16 FLAG 
SET CC 

SKIP IF 32 3IT 


GREATER THAN 4 DIGITS 


ERROR 
CONTINUE 


SREAT&R THAN 6 DIGITS 


ERROR 

STORE TO HIGH 
FIND DIFFERENCE 
L>H ERROR 


FDL16436 
FDL16440 
FDL16450 
FDL16460. 
EFDL16470 
FDL16480 
FDL16490 
FDL15500 
FDL1E516 
FDL165206 
FDL16530 
FDL16540 
FDL16550 
FDL16560 
FDL1E570 
FDL16580 
FDL16590 
FDL16600 
FDL16610 
FDL16620 
FDL 16630 
EDL16640 
FDL16650 
FDL16660 
FDL16670 
tDL16680 
FDL16690 
FDL1670C 
FDL16710 
FDL16720 
FDL16730 
FDL16740 
FDL16750 
FDL16760 
FDL16770 
FDL16780 
FDL16790 
FDL16800 
FDL16#810 
FDL16320 
FDL16830 
FDL16840 
FDL16850 
FDL16860 
FDL16870 
FDL16880 
FDL16890 
FDL16900 
FDL163910 
FDL15920 
FDL16930 
FDL16940 
FDL16956 
FDL16960 
FDL16970 


O06-225FO02491R017A13 


6675861 
0015821 
0015861 
*0015881 
00158AI 
00158CI 
0015901 
0015941 
0015961 
00 159AI 
00159 
*0015A0I 
0015A2I 
OO15A4T 
OO1SA6I 
*OO1TSA8T 
OO15AAI 
OO15SACI 
0015B0T 
0015B4I 
0015B8I 
0015BAT 
0015BCI 
OO15BEI 
0015C 2T 
0015C6I 
0015CAT 
0015CET 
0015D0I 
0015D2I 
0015D6I 
0015D8I 
OO15DAI 
0015DEI 
0015E0I 
0015E2I 
0015E4I 
0015E8I 
0015ECI 
0015EETI 
0015FOI 
0015F2I 
*O015F6I 
0015F8I 
OO1SFATL 
OO15FET 
001600T 
0016041 
0016061 
001608T 
OO160AI 
00160CI 


OO160EI . 


0016101 
0016121 


FAB2 


EBBA 
3835C 


EBY8 
F61A 


EA62 
FB7D 
FB7B 


FAS1 
EB6C 
8036 
RAGS 


0900 


EAI34 


0014 
BO00C 


0012 


FFCC 


EAOF 


=0010381 


=00017144T 
=0018FOI 


=O000E21 
=O000BB8I 


=000012I 
=000131I 
=0001331 


=0000131 
=000132I 
=001600I 
=000013I 


=0000121 


=0015F eI 


=00 15CATI 


=0000131 


27nn 


{O98 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 


LIM1 


PACK 
PK1 


PK2 
PASLAO 


PAOS 


PAQ2 


PAOQ3 


PAQ& 


FLOPPY DIASNOSTIC LOADER/SENERATOR 


R1,CONINCR2) 
RC,CONVERT 
R1,-R1 

PK2 


R1,PASAD 
R1,PASL2 
R1,PASRD 
R1,84 
R1,R84 

8,1 
R1,PASAD+1 
R1,PASWR 
PAOY 
R1,PASAD+1 . 
R1T,R4 

8,1 
R1,9(R3) 
R3,1 

R2,1 
R1,PASAD 
R1,24 
8,PA03 
R1,84 


Ra,x*14? 


11,PA903 
R1,R4 
8,1. 
R1,R4 
Ra, K° 12° 
11,PA02 
R2,R2 
PAOS 

RC 
R1,PASAD+1 
R1,R4 
8,1 
24,13 
R1,R4 
R1,R4 
8,1 
R4,19 
R1,R4 


08:35:45 08/17/73 
LOAD 

DIVIDE 

LOAD REMAINDER 

NO REMAINDE? 
INCSRIMENT FOR REMAINDERS 
SAYER # OF LRNS 
DONE 
CLEAK DATA STORAGE 
LOAD DATA 

CONVERT TO HEX 
LOAD HEX 

BAD RETURN 

ROTATE DATA 

ADD IN NEXT DATA 
INCRIMENT COUNT 
LOQP 

RETURN 

LOAD READ ADDRESS 
SET CMD2 BYTE 

SET READ MODE 
DUMMY READ 

SENSE STATSS 

WAIT FOR BUSY 

LOAD WRITE ADDRESS 
SET WRITE MOLE 
SKIP 

LOAD WRITE ADDRESS 
SENSE STATUS 

BUSY LOOP 

ARITE DATA 
INCRIMENT POINTER 
DECREMENT COUNT 
LOAD READ ADDRESS 
SENSE STATUS 

BUSY = INPUT READY 
INPUT DATA 

COMPARE TO DC&(STOP) 
JUNK CHARACTER 
SENSE STATUS 

BUSY LOOP 

READ DATA 

COMPARE TO DC2(6O) 
LOOP UNTIL MATCH 
LOAD COUNT 
CONTINUE 

RETURN 

LOAD WRITE ADDRESS 
SENSE SPATUS 

BUSY LOOP 

LOAD CR 

WRITE DATA 

SENSE STATUS 

BUSY LOOP 

LOAD LF 

WRITE DATA 


FDL16980 
FDL16990 
FDL17000 
FRL17010 
FDL17020 
FDL17030 
FDL17040 
FDL17050 
FDL17060 
FDL17076 
FDL17080 
FDL17090 
FDL17100 
FDL17110 
FDL17120 
FDL17130 
FDL17140 
FDL17150 
FDL17160 
FDL17170 
FDL17180 
FDL17196 
FDL17200 
FDL17210 
FDL17220 
FDL17230 
FOL17240 
FDL17250 
FDL17260 
EDL17270 
FDL17280 
FDL17290 
FDL17300 
FDL17310 
FDL17320 
FDL17336 
FDL17340 
FDL17350 
FDL17 360 
F9L17370 
FDL17386 
FDL17390 
FDL17400 
FDL17410 
FDL17420 
FDL17430 
FDL174406 
FDL17450 
FDL17460 
FDL17470 
FDL17480 
FDL17490 


-FDL17500 


FDL17516 
FDL17520 


06-225FO2491R01A13 


0016141 
0016161 
0016181 
00161CI 
OO16TEI 
001622T 
9016261 
00162AT 
00162CI 
00162ET 
0016321 
0016341 
*0016361 
0016381 
00163AI 
00163CI 
00163ET 
0016401 
0016421 
001644T 
0016461 
0016481 
O00164AI 
OO164ET 
001650! 
0016521 
001656! 
OO165A4T 
00155CI 
O0165EI 
0016627 
0016661 
OO0166AL 
00166EI 
0016721 
0016761 
001678T 
OO1T67ATI 
00167EI 
0016801 
001682I 
0016841 
0916881 
00168CI 
00168ET 
0016901 
0016941 
0016961 
001698! 
00169AT 
00169CI 
0016A0I 
0O016A21 
OO15A4T 
OO16A81 


SD174 
2081 
C&4uo 
9A14 
4300 
D310 
DE10 
9D14 
2081 
DA13 
2631 
2721 
20 36 
243D 
9D14 
2081 
9A 13 
243A 
9D14 
2081 
9413 
030C 
E630 
2421 
2480 
4100 
4300 
3420 
2406 
C&AO 


OOFF 
FFA8 


EQEF 
0080 


0000 


BOOC 


FC28 
8296 


0018 
001Cc 
FUFE6 
FB88 
EAFA 
EAFA 


E999 


0020 
8060 


0000 


BOC 


OO07C 
E96E 


FLOPPY DIAGNOSTIC LCADER/GENFERATOR PAGE 

1753 SSR R1,R4 

1754 BT85 8,1 

1755 LHI °R4,X*FF' 

1756 WDR R1,R4 
=0015CAT 1757 B PAOS 
=009015T 1758 PRTO LB R1,LPAD 

1759 oc R1,X°80* 

1760 PR1 SSR R1,R4 

1761 BTBS 8,1 

1762 aD R1,0(R3) 

1763 AIS R3,1 

1764 sts R2,1 

1765 BNZ PR1 

1766 LIS R3,13 

1767 SSR R1,84 

1768 BTBS 8,1 

1769 WDR R1,83 

1770 LIS R3,10 

1771 SSR R1,R4 

1772 BTBS 38,1 

1773 WDR R1,R3 

1774 BR RC 
=00165AI 1775 QUEST LDAI R3,Q85S 

1776 LIS R2,1 

1777 LIS R6.9 
=00127FI 1778 BAL RD,FINDCON 
=0018FO0I 1779 B POUND 

1780 MSS cc C222" 

1781 RDIRECT LIS R0,0 

1782 LHI RA,STDIRN 

1783 LHI R4Y,STDIR 
=O000B60I 17834 RDLOOP BAL RD,RESET 
=0011F6I 1785 BAL RC,SULH56 
=00075CI 1786 LH R9,CSEQNUMO(R8) 
=000170I1 1787 LH R1,PRECMDOCR8) 

1788 LIS R21 

1789 OAR R1,22 
=0000171I 1790 LB R2,FLPAD 

1791 WHR R2,R4 

1792 OCR R2,K1 

1793 RDIRECT2 AIS RA,1 

1794 CLdI RA,STSAV 
=0016ECI 1795 BE RDIRERR 

1736 SSR R2,83 

1797 BT8S 8,1 

1798 RDHL RH R2,0(R5) 

1799 AIS R5,2 

1800 CLAR R6,285 

1801 BNCS DHL 

1802 SSR R2,R3 
=0016ECT 13893 BTC 5,RDIRER2 

1904 LIs R5,9 

1305 LIS 26,4 

1806 LHI R7,X"7C* 
=OOQ001TAT 1807 RDIRECT1 LH 23,INBUFCR5) 


33) 08:34:45 08/17/79 
SENSE STATUS 
BUSY LOOP 

LOAD DELETE 
WRITE: DATA 
RETURN 

LOAD ADDRESS 
SET DISA8LE 
SENSE STATUS 
BUSY LOOP 

WRITE DATA 
INCRIMENT POINTER 
DECREMENT COUNT 
LOOP 

LOAD CR 

SENSE STATUS 
BUSY LOOP 

WRITE DATA 

LOAD LF 

SENSE STATUS 
BUSY LOOP 

WRITE DATA 
RETURN 

LOAD ADDRESS 
LOAD SIZE 

SET OUTPUT 
PRINT 

RE-START 


CLEAR RO 

INIT RA daD 

LCAD START LR das 
IDLE CHECK 

LOAD R5-26 

LOAD CURRENT SEQUENCE 
LOAD PRE-COMMAND 

LOAD READ CMD 

MERGE CD 

LOAD ADDRESS 


# 


WRITE LRN TO CONTROLLFR 


ISSUE READ CMD 
INCRIMENT CURRENT LRN 
EXHAUSTED DIRECTORY ? 
YES 

SENSE STATYS 

WAIT FOR BUSY NOT 
READ 2 BYTES 

BUMP 

DONE?? 

NO, LOOP 

SENSec STATUS 

READ ERROR 

SETUP 

BXLE 

LIMITS 

LOAD SEQUENCE # 


POINTER 


FDL17530 
FDL17540 
FDL17550 
FDL17560 
FDL17570 
FDL17580 
£DL17596 
FDL17600 
FDL17610 
FDL17620 
FDL17630 
FDL17640 
FDL17650 
FDL17660 
FDL17670 
FDL17680 
FDL17690 
FDL17700 
FDL17710 
FDL17720 
FDL17730 
FDL17740 
FDL17750 
FDL17760 
FDL17770 
FDL17780 
FDL17790 
£DL17206 
FDL17810 
FDL17820 
FDL17330 
FDL17840 
FDL17856 
FDL17860 
FDL17870 
FDL17880 
FDL17890 
FDL17900 
FDL17916 
FDL17926 
FDL17930 
FDL17940 
FDL17956 
FDL17960 
FDL17970 
FDL17980 
FDL17990 
FDL18900 
FDL18010 
FDL1802¢C 
FDL18030 
FDL18049 
FDL18050 
FDL18960 
FDL18070 


am 


C6-225FO2NG1TRO1A13 


OOTAACI 
00 16B0I1 
0016B2I 
0016B6I 
0016B8I 
00163CI 
0016COI 
0016C4I 
0015C8I 
0016CAI 
0015CCI 
0016DOI 
0016D4I 
0016D6I 
0016DAI 
0016DCI 
0016E0I 

*0016E2I 
0016E4I 
0016E8I 
0016ECI 
0016EEI 
0016F21 
0016F6I 
0016F8I 
0016FCI 
0017001 
0017021 
0017041 
0017081 
00170CI 
0017101 
0017141 
0017181 
00171AI 
00171CI 
0017201 
0017241 
0017261 
00172AI 
00172EI 
0017301 
0017341 
0017381 
00173CI 
0017401 
0017421 
001744L 
0017481 
00174AI 
00174CI 
00174EI 
0017501 
0017541 
0017581 


4210 
0833 
4330 
0539 
4330 
C150 
41C0 
4300 
2541 
2430 
4818 
4100 
O30E 
4845 
2207 
D300 
0300 
2023D 
“100 
4300 
0300 
C500 
42R0 
2601 
4818 
4100 
OB4A 
2741 
4300 
81C0 
D240 
4100 
D300 
0800 
O23E 
E630 
D320 
2480 
41D0 
4300 
2400 
D370 
5087 


4TDO. 


4818 
2421 
0612 
D320 
9824 
9E21 
9D23 
2081 
C870 
D925 
2652 


RABe =ONAERCT 
on Sa Os Vw IVES 


8012 =0016C8I 


BO1A =0016D6I 
FFE8 =O0016A81 
FB32 =0011F6I 
FFBA =0016821 


EAAO =0001701 
8230 =001904I1 


E942 =00001CI 


EA&D =00012DI 


821C =001904I1 
FB14 =001200T 


0005 
3012 =001708I 


EA74 =000170I 
8204 =001904T 


FFSE =001666I1 
FBDO =0012DCI 
8344 =O0TA54I 
81FO =001904T 
EA15 =00012DI 


8316 =001A36I 
8419 =001B3DI 


FB54 =00127EI 
81C2 =0018FOI 


E9F8 =00012CI 
EASC =000194I 
F424 =O00B60I 
EA30 =0001701 


E8CF =000017I 


OO7E 
0000 


LOADER/SGENERATOR PAGE 
BA ECD14 
LDAR R3,R3 
BZ EOV1 
CLAR R3,R9 
BE MATCH 
BXLE 25,RDIRECT1 
BAL R8C,SULH56 
B RDIRECT2 
EOV1 LCs Ra,1 
LIS 23,0 
EQVEX LY R1,PRECHDOCRB) 
BAL RD,STOP 
BR RE 
MATCH LH R4,INBUF+2(85) 
BS EQVEX 
EOD1 L8 RO,LDFLG 
LDAR RO,R0 
BNZ EOV1 
BAL RD,STOP 
B EOD 
RDIRERR LDAR- R0,RVU 
CLHI RO,xX'OS* 
BIC 11,-RDIRERR1 
AIS RO,1 
LH R1,PRECMDO( R88 ) 
BAL RD,STOP 
LDAR R4,RA 
SIS RA,1 
B RDLOOP 
RDIZERH1 BAL RC,FINDDRV 
STB R4,RDEMSG+30 
BAL RD,STOP 
LB RO, LDFLG 
LDAR RO,RO 
BNZR RE 
LDAI R3,RDEMSG 
L838 R2,RDEMSGS 
LIS 28,0 
BAL RD, FINDCON 
B POUND 
RDLRN LIS RO,9 
LB R7,FLG16 
STA R5,R5SAVCR7) 
RLRNLOOP BAL RD,RESET 
LH R1,PRECMDOCR8) 
LIS R2,1 
OAR R1,R2 
LB R2,FLPAD 
WHR R2,R4 
OCR R2,R81 
RLHL SSR R2,R3- 
BT38S 8,1 
LHT R7,126 
RLHL1 RH R2,90(R5) 
AIS R5,2 


OF2:34:45 08/17/79 


ran 
ou 


LOAD SEQUENCE # 


LOG? 

LOAD R5-%6 
CONTINUE 

LOAD F°S 

LOAD EOV 

LOAD PRE-CMD 

ISSUE STOP 

RETURN 

LOAD PDB POINTER 
EXIT 

LOAD LOAD FLAG 

SET CC 

NO PRINT IF LOAD MODE 
STOP 

PRINT 

LOAD ERROR COUNT 
FIV: TIMES 

YES, HARD ERSOR 
INCRIMENT COUNT 
LOAD PRE-CMD 

STOP 

RELOAD LRN POINTER 
DECREMENT CURRENT POINTER 
LOOP 

FIND ERROR DRIVE 
STORE TO MESSAGE 
STOP 

LOAD LOAD FLAG 

SET CC 

RETURN 

LOAD ADDRESS 

LOAD SIZE 

SET OUTPUT 

PRINT 

RE-START 

CLEAR ERROR COUNTER 
GET FLAG 

SAVE R5S 

IDLE CHECK 

LOAD PRE-CH#D 

LOAD READ 

MERGE CAD 

LOAD ADDRESS 

ARITE LRN TO CONTROLLER 
READ 

SENSE STATUS 

WAIT FOR BUSY NOT 
LOAD LOOP COUNT 
READ 2 BYTES 

BUMP 


FVULTSUSY 
FDL18090 
FDL18100 
FDL18110 
FEL198120 
FDL13130 
FDL13140 
FGL13156 
FDL18160 
FDL18170 
FDL181389 

DL18196 
FDL12 200 
FDL182210 
FDL18220 
FDL18230 
FDL18240 
FDL18250 
FDL18260 
FDL18270 
FDL18280 
FDL18290 
FDL18300 
FDL18310 
FDL18 320 
FDL18330 
FDL18 340 
FDL18350 
FDL18 360 
FDL18379 
FDL18 380 
FDL18390 
FDL18400 
FDL18410 
FDL18420 
FDL18430 
FDL18 440 
FDL18450 
FDL18460 
FDL18470 
FDL18480 
FDL18490 
FDL1850.0 
FDL18510 
FDL18520 
FDL18530 
FDL18540 
FDL18550 
FDL18560 
FDL18570 
FDL.18580 
FDL18590 
FDL18600 
FDL18610 
FDL18620 


05-225 F02M91R01A13 


0017S5AI 
00175CI 
00175EI 
0017601 
0017621 
*0017641 
0017661 
00176AI 
00176CI 
0017701 
0017741 
0017761 
OO0177AI 
00177ET 
0017821 
0017861 
00178AI 
0017821 
0017901 
0017921 
0017961 
O0179AT 
00179CI 
OO17AOI 
OO017A4T 
0017A8T 
OO17ACI 
OOVTAET 
0017B0I 
0017B4I 
0017B8I 
001738CT 
OO17BET 
0017COI 
0017C4T 
0017C6I 
0017C8I 
OO17CATI 
0017CEI 
0017D0I 
0017D4I 
0017D8T 
0017DAI 
0017DEI 
OO17E2I 


OOV7E4T 


0017E8I 
0017ECI 
OO17EET 
0017F2I 
OO17F SI 
0017F8I 
CO17FCI 
0018001 
0018021 


2772 
2214 
0665 
228A 
9D23 
2754 
4150 
030F 
C500 
4330 
2601 
4100 
D370 
5857 
43C0 
4100 
D390 
0899 
G23E 
E630 
D320 
2480 
4100 
4300 
C810 
4820 
1128 
9612 
4010 
C810 
4320 
1124 
0612 
4610 
03¢cC 
2420 
2430 
41C0 
2621 
41EO 
4c50 
1OEC 
42230 
&1C9 
2621 
4TEO 
4O50 
VOEC 
4230 
41C0 
2€21 
41E0 
40£0 
10£8 
4230 


8194 


0005 
38012 


818A 
EQAE 
EA12 
FFB2 
B1I7A 
ES9F 


82C90 
83A4 
FADE 
814C 


00co 
ESCA 


E9BC 
00CO0 
EQBC 


EQAE 


8092 


FDCO 
ESSE 


FE6C 
807E 


FDAC 
E94C 


FES8 
BO6A 


FD98 
E93A 


FE4&4 


=001904T 


=0017861 
=0019041 
=00012CI 
=0001941 
=0017381 


=001904T 
=00012DI 


=O01A56I 
=007B3EI 


=00127FI 
=0018F0I 


=000176I 


=000170I 


=0001781 


=0001721 


=001860I1 


=001594T 
=0001361 


=00 164AT 
=001860I 


=001594T 
=0090138I 


=007164AT 
=001860I 


=09015941 
=00913AI 


=00 164ATL 


1863 
1864 
1365 
1866 
1867 


RDLANE 


RDLRNE1 


SETUP 


SEQ 


SIs 
BNMS 


FLOPPY DIAGNOSTIC LOADER/GENERATOR 


R7,2 
RLHL1 
R6,85 


. RLHL 


R2,R3 
5,RDLRNE 
RD,STOP 

RE 
RO,X‘°05S* 
RDLRNE1 
RO,1 
RD,STOP 
R7,FLG16 
R5,R5SAVCR7) 
RLRNLOOP 
RD,STOP 
R9,LDFLG 
R9,R9 

RE 
R3,RDLMSG 
R2,8DLMSGS 
RB,0 

RD, FINDCON 
POUND 
R1,X¥°CO° 
R2,DR0 
R2,4 

21,82 
R1,PRECMDO 
R1,X4°CO* 
R2,DRI 
R2,4 

R1,22 
R1,PRECMDI 
RC 

R2,9 

R3,0 
RC,SPCOM 


R5,SEQNUM 
R5,12 
QUEST 
RC,SPCOM 
R2,1 
RE,PACK 
R5,7?06 
R5,12 
QUEST 
RC,SPCOM 
R2,1 
RE,PACK 
R5,REVLEV 
R5,3 
QUEST 


68/17/79 


DECREMENT 
DONE?? 
DINE??- 

NO, LOOP 
SENSE STATUS 
READ ERROR 
STOP 


INCRIMENT 
STOP 

LOAD FLAS 
RESTORE 25 
RETRY 

STOP 
LOAD LOAD FLAG 
SeT CC 
RETURN 

LOAD ADDRESS 
LOAD SIZE 
SET OUTPUT 
PRINT 


RESTART 
LOAD DISAB 
LOAD DRIVE 
SCALE 
MERGE 
STORE 

LOAD DISAB 
LOAD DRIVE 
SCALE 
MERGE 
STORE 


RETURN 


is 


te ity 


LE 
# 


CLEAR CHARACTER POINTER 
CLEAR STIRAGE POINTER 


FIND DELIMITER 
INCHIMENTD PAST 

PACK AND CONVERT 
STORE 

SCALE 

TCO MANY CHARACTERS 
FIND DELIMITER 
INCRIMENT PAST 

PACK AND CONVERT 
STORE 

SCALE 

TOO MANY CHARACTERS 
FIND DELIMITER 
INCRIMENT PAST 

PACK + CONVERT 
STORE 

SCALE 

TOO MANY CHARACTERS 


FIELD 


FIELD 


FIELD 


FEL18630 
FDL18640 
FDL18650 
FDL18660 
FDL18670 
FDL18680 
FDL18690 
FDL18700 
FDL18710 
FDL18720 
FDL18730 
FDL18740 
FDL18750 
FDL18760 
FDL18770 
FDL18780 
FDL18790 
FDL18800 
FDL 18810 
FDL18820 
FDL18830 
FDL18840 
FDL18850 
FDL18860 


rnNT 4ao7mNn 
PFULIOoFrVY 


FDL18880 
FDL18890 
FBL13900 
FDL18910 
FDL18920 
FDL18930 
FDL18940 
FDL18950 
FDL18960 
FDL18970 
FDL18980 
FDL18990 
FDL19000 
FDL19010 
FDL19020 
FDL19030 
FDL19040 
FDL19050 
FDL19060 
FDL19070 
FDL19080 
FDL19090 
FDL19100 
FDL19110 
FDL19120 
FDL19130 
FDL19140 
FDL19150 
FDL19160 
FDL19170 


RAztce ee 


f OO180AI 
00180EI 
0018121 
0018147 
0018181 
00181CI 
f 00181EI 
0018221 
0018261 
i 9918281 
00182CI 
0018301 
( 0018341 
0018361 
00183AI 
( 00183CI 
0018401 
0018441 
( 0018481 
00184CI 
00184ETI 
‘ 0018521 
0018561 
0018581 
( 00185Al 
00185CI 
0018601 
( 0018641 
0018681 
00186AI 
t 00186EI 
0018701 
0018721 
( 0018741 
0018761 
00187AI 
( 00187EI 
0018801 
0018841 
‘ 0018861 
00188AI 
00188CI 
¢ 0018901 
001894I 
0018961 
( 00189AI 
00189CI 
0018A0I 
( 0018A2T 
O018A4T 
0018A8I1 
( 0O18AAI 
0018AEI 
0018801 


D312 
C510 
4230 
2621 
41E0 
D250 
10EU 
4230 
D350 
11£C 
4650 
4050 
41C0 
2621 
41CO 
2430 
D312 
C510 
4330 
D213 
0833 
C530 
4330 
2631 
2621 
220F 
4300 
D312 
C510 
2336 
C510 
2333 
2621 
2209 
030C 
D310 
C410 
1018 
4330 
2711 
4330 
2711 
4330 
4300 
2411 
4010 
2410 
4010 
030C 
2410 
4010 
2411 
4010 
030C 
2412 
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E&D8 
OO2E 
8O07TE 


FD7C 
E974 


FE28 
ES6A 


ES0E 
EJOA 
892C 
F2A6 
E8A2 
000D 
8014 
EaFA 


OO1E 
FDF& 


8990 
EBTE 
0020 


002C 


0079 
0030 


RO1E 
BO0A 


8020 
802A 


EaSDE 


E8D6 


E8DO 


E8C8 


=OO00E2T 


=001830I 


=001594T 
=000190I 


=O00164AI 
=000190I 


=00013ATI 
=00013AI 
=001860I 
=OO00AEOI 
=O0000F2T 
=00185CI 
=O00146I 


=00164AT 


=0018FOI 
=Q000E2I 


=0018A2T 
=001894T 


=0018B0I 
=O0018BET 


=0001781 


=000176T1 


=0001781 


=0001761 


1918 
41943 
1920 
1921 
1322 
1923 
1924 
4925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
13947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 


FLOPPY DIAGNOSTIC 


SEQ3 


SE21 


SEQ2 
SPCON 


SPCOM1 


FIOD 


BOOT 1A 


BOOoTO 


BOOT2 


LOADER/GENERATOR 
1B R1,CONIN( B82) 
CLHI &i,C*.’ 
BNE SEQ3 
AIS R2,1 
BAL RE,PACK 
ST8 R5,TEMSAV 
SRLS R5,4 
BNZ QUEST 
LB R5,TEMSAV 
SLLS 85,12 
OH R5,REVLEV 
STH RS,REVLEV 
BAL RC,SPCOM 
AIS R2,1 
BAL RC,CFFORM 
LIS R3,0 
LB R1,CONINCR2) 
CLHI R1,X*0OD* 
BE SEQ2 
STB R1,FFORM(R3) 
LDAR R3,R3 
CLHI R3,30 
BE QUEST 
AIS R3,1 
AIS R2-1 
BS SEQ1 
B POUND 
L8 R1,CONIN(R2) 
CLHI R1,-X*20° 
BES SPCOM1 
CLHI R1,X*2C* 
BES SPCOM1 
AIS R2,1 
BS SPCOM 
BR RC 
LB R1,X°79° 
NHT R1,X°30° 
SRLS R14 
BZ BOOTO 
SIS R1,1 
BZ BOOT1A 
sIs R1i,1 
BZ BOOT2 
B BOOT3 
LIs R1,1 
STH R1,DRT 
LIS R1,90 
STH R1,DR0 
BR RC 
LIS 21,9 
STH R1,DRI 
LIS R1,1 
STH R1,DRO0 
BR RC 
LIS R1,2 


c 
RIOD ? 
NO EXTENSION 
POINT TO EXTENSION CHARACTER 
PACK + CONVERT 
SAVE 
SCALE 
MORE THAN ONF CHARACTER 
RE-LCAD 
SCALE 
MERGE 
STORE 
FIND DELIMITER 
INCPIMENT PAST 
CLEAD FREE FORM BUFFER 


LOAD FREE FOPM COUNT 
DONE 

TOO MANY CHARACTERS 
ICNRIMENT POINTER 
INCRIMENT POINTER 
LOOP 

DONE 

LOAD CHARACTER 
RLANK 

Yes 

COMMA 

YES 

INCRIMENT POINTER 
LOOP 

RETURN 

LOAD BOOT COMMAND 
REMOVE DRIVE # 
SCALE 

IN=9;0UT=1 
DECREMENT 
IN=1;0UT=0 
DECREMENT 
IN=2;0UT=3 
IN=3;0UT=2 

LOAD ADDRESS 
DRI=1 

LOAD ADDRESS 
DRO=0 

RETIRN 

LOAD ADDRESS 
DRI=0 

LOAD ADDRESS 
DRO=1 

RETURN 

LOAD ADDRESS 


oN. en as 


FDL19190 
FDL19 200 
FDL19210 
FDL19226 
FDL19230 
FDL19240 
FDL19250 
*DL19260 
FDL19270 
FDL19280 
FDL19290 
FDL19300 
FDL19310 
FDL19320 
FDL19 330 
FPDL19340 
FDL19 350 
FDL19360 
FDL19370 
FDL19 380 
FDL19390 
FDL19400 
FDL19410 
FDL19420 
FDL19430 
FDL194840 
FDL19450 
FDL19469 
FDL19470 
FEL19480 
FDL19490 
FDL19500 
FDL19510 
FDL19520 
FDL19530 
FDL19540 
FDL19550 
FDL19560 
FDL19570 
FDL19580 
FDL19590 
FDL19500 
FDL19€10 
FDL19620 
FDL19630 
FDL19640 
FDL19650 
FDL19669 
FDL19670 
FDL196890 
FDL19690 
FDL713700 
FDL19710 
FDL19720 
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0018B2T 
0018861 
0018881 
00183BCT 
0018BEI 
0018COI 
0018C4I 
0018C6I 
OO18CAI 
0078CCI 
0018DO0I 
0018D4I 
0018 D8TI 
0018DCI 
O0013DET 
0018 E2T 
O0018E61 
OOT8EAT 
OO18ECT 
0018FO0I 
OO18F4T 
0018F6I 
0018 F8I 
OO18FCI 
OO18FETI 
0019021 
00199041 
901998 
OO1S0AI 
00190CI 
001910T 
0019121 
00191741 
901916] 
90191781 
00191ATI 
00191ET 
001922T 
0019261 
0019281 
09192AI 
00192CI 
0019301 
0019341 
001938T 
00193CI 
QO193ET 
0019401 
0019441 
0019461 
001948T 
00 194AT 
00194CcI 
0019501 
001954T 


4010 
2413 
4010 
030C 
2413 
4010 
2412 
4010 
030cc 
41C0 
41C0 
41C0 
41C0 
2410 
D210 
F630 
D320 
2480 
4100 
E630 
2421 
2480 
4100 
2484 
41D0 
2206 
4818 
2427 
0612 
D320 
9E21 
9D21 
2221 
030D 
2445 
E6£0 
E660 
4TEO 
03CF 
2480 
24C0 
D370 
5057 
4100 
4810 
2422 
0612 
D320 
9824 
9E21 
9D23 
2081 
C870 
DB25 
2652 


E8C2 


E8BA 


E8B4 
E8AC 
EB7E 
FAEA 
FFIE 
FEC8 
E8uB 
81DE 
8259 
FO8BE 
E836 
F982 
F97C 


£868 


E707 


EF3C 
Fo85 
8002 


E7FC 
£860 
F228 
E834 


F6D3 


OOTE 
0000 


=000178I 


=0091761 


=0001781 
=000176I 
=OOO44ET 
=Q013BE1 
=0018761 
=OO17A4T 
=00012DI 
=O01AC4T 
=0015431 
=00127EI 
=00012AI 
=00127EI 
=00127ET 


=0009170I1 


=090017I 


=OO0055AI 
=OO0SA7I 
=0019281 


=00012CI 
=9000194T 
=0008601 
=000170I 


=000017T 


1973 
1974 
1975 
1976 
1977 
1978 
1979 
13980 
1981 
1982 
1983 
1964 
1985 
1986 


BOOT 3 


STARTG 


POUND 


STOP 


WRTBOCT 


WRLRN 


WARLRN2 


WLAL 


aLHL1 


FLOPPY DIAGNOSTIC LOADER/G 


ENERATOR PAGE 


RC 
xC,CLRDIS 
RC, LCORE 
RC, FIOD 
RC,SETUP 
R1,0 
R1,LDFLG 
R3,TITLE 
R2,TITLES 
28,0 
RD,FINDCGN 
R3,ASTERISK 
R2,1 

R8,0 

RD, FINDCON 
88,4 
RD,FINDCON 
cd 


K1,PRECMDOCRB) 
R2,7 

R1,R2 
R2,FLPAD 
R2,281 

R2,31 

2,1 

RD 

R4,5 
R5,300TST 
26,R300TER 32+1 
RE,WRLRN 


R7,FLG15 
R5,R25SAVCR7) 
RD,RESET 
R1,PRECNDO 
R2,2 

R1,R2 
R2,7°LPAD 
R2,R4 
82,31 
K2,23 

8,1 

R7,126 
R2,0(R5) 
R5,2 


03:34:45 38/17/79 
DRI=2 

LOAD ADDRESS 
DR0=3 

RETURN 

LOAD ADDRESS 
DRI=3 ; 

LOAD ADDRESS 
DRO=2 

RETURN 

CLEAR DISPLAY 
INITIALIZE LOW CORE 
SET DRO + DSI 
SETUP DRO AND Dri 
CLEAX FLAG 

STORE 

LOAD ADDRESS 

LOAD SIZE 

SET OUTPUT 

PRINT 

LOAD ADDRESS 

LOAD SIZE 

SET OUTPUT 

PRINT 

SET INPUT 

INPUT DATA 

NO RETURN 

LOAD PRECAD 

LOAD STOP C¥D 
MERGE 

LOAD ADDRESS 
COMMAND 

SENSE STATYS 

IDLE NOT LOOP 
RETURN 

LOAD LRN FOR RBOGT 
LOAD LOW 

LOAD HI3H 

WRITE LRN 

RETIRN 

SET OUTPUT 

CLEAR RETRY COUNT 


GET FLAS 
SAVE 2&5 
IDLE CHECK 


LOAD PRE-C¥OD 
LOAD WRITE CAD 
MERGE 

LOAD ADDRESS 


WRITE LRN Te CONTROLLER 


COMMAND 

SENSE STATIS 

#AIT FOR BUSY NOT 
LOAD LOOP COUNT 
WRITE 2 BYTES 
BUMP 


FDL19730 
FOLT974¢6 
FOSL19750 
FDL19760 
FDL19770 
FDL19780 
FDL19790 
FDL1980C 
FDL19810 
FDL19320 
FDL19830 
FDLI9840 
FDL19850 
FDL19860 
FDL19370 
FDL19880 
FDL139890 
FDL19900 
FDL19910 
FDL19920 
FDL199390 
FDL199406 
FDL19950 
FDL19$60 
FDBL19970 
£DL19960 
FDL19990 
FOLZICO0 | 
FDL209010 
FDL20020 
FDL20030 
FDL29040 
FDL29050 
EDL20960 
FDL20076 
FDL20080 
FDL20099 
FDL2010C 
FCL20116 
FDL29120 
FDL20130 
FDL29140 
FDL2C150 
FDL29150 
FDL20170 
FDL20180 
FDL29190 
FEL26020% 
FDL20210 
FDL20229 
FDL20230 
FDL20240 
FDL20259 
FDL20260 
FOL20270 
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00195AaI 
*00195CI 
0019551 
*0019601 
0019621 
0019661 
001968T 
00196CI 
0019701 
0019721 
9019761 
00197AI 
00197EI 
0019821 
0019861 
0019881 
00198CI 
0019901 
0019941 
0019961 
00199AI 
00199EI 
0019A 21 
OO19A6I 
OO19AAI 
0019AEI 
0019B2I 
0019B4I 
0019B8I 
0019BCI 
0019COI 
0019C8I 
0019CEI 
0019D6I 
0019DETI 
0019E6I 
0019ECI 
0019F4I 
0019FAI 
0019FEI 
00 1A06I1 
001A0EI 
001A161 
OO1A1EI 
001A221 
OO1A2AI 
001A321 
001A36I 
001A3EI 
OO1A46I 
OO4A4ET 
0O1A56I 
OO1A5EI 


2772 


22714 
0565 
228A 
9B23 
2154 
4100 
O30E 
C500 
43E0 
2601 
D370 
5857 
4300 
C540 
4280 
2480 
41D0 
£630 
D320 
2480 
41£0 
4300 
4100 
4300 
4150 
E630 
D320 
2480 
4100 
4300 
45OuF 
4S4F 
464F 
4C4F 
4748 
444g 
2046 
444g 
5920 
454F 
44HO5 
4520 
494C 
4O4E 
494F 
4Du1 
4D41 
494F 
4449 
5920 
5252 
H4E2 
5245 
4F52 


FFIE 


9005 
800E 


E7B6 
E81A 
8020 
0020 
8020 


FE78 
80DO0 
81AB 


FSE4 
FF52 
FF62 
FF8E 
FFSA 
BOCE 
B18E 


FBC6 
FF34 
4420 
5620 
554E 
5720 
2045 
534B 
554C 
5245 
4655 
4A20 
4645 
&D45 
4C45 
5354 
4E20 
4348 
4C46 
4E20 
5245 
5245 
4F52 
8956 
4144 - 
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DECREAENT 
DONE?? 
DONE?? 

NO, LOOP 
SENS# STATUS 
WRITE ERROP 
STOP 

RETURN 
MAXIMUS 

YES, HARD 
INCRIAMENT COUNT 
LOAD FLAG 
RESTORE R5 
CONTINUE 

LRN MAX aNd 
DIRECTORY ERROR 
SET OUTPUT 
STOP 

LOAD ADDRESS 
LOAD SIZE 
SET OUTPUT 
PRINT 
RE-START 
STOP 
CONTINUE 
STOP 

LOAD ADDRESS 
LOAD SI7E 
SET OUTPNT 
PRINT 
RE-START 


C* DIRECTORY READ ERROR ON DRIVE X'* 


FLOPPY DIAGNOSTIC LOADER/SENE® ATOR PAGE 

2028 SI5 R7,2 

2929 BN4S LAL 

2930 CLAR 26,85 

2031 BNC @LHL 

2032 SSR R2,83 

2933 BTC 5,83ERR 
=001904T 2034 BAL RD,STOP 

2035 BR RE 

2936 WBERR CLHI 80,<°65' 
=OO197ET 2037 BFC 11,45ERR 1 

2938 AIS RO,1 
=00C012CI 2039 LB R7,FLG15 
=0001941 2040 LDA R5,25SAV(R7) 
=O0199EI 2041 B WRLRN1 

2042 WBERR1 CLHI R4,STSAV 
=O0019A6I1 2043 BL WPELRNG 

2044 LIS 88,9 
=001904L 2045 BAL R8D,STOP 
=001A60I 2046 LDAI R3,RECMSG 
=O001R3FI 20487 LB R2,2ECMSGS 

2048 LIS R8,9 
=OQ0127ETI 2949 BAL RD,FINDCON 
=0018FOT 2050 B POUND 
=001904I1 2051 WRLRN1 BAL 2D,5TOP 
=0919341 2052 B ARLRN2 
=00 1904T 2053 WRLRN3 BAL RD,STOP 
=OQOTA7CI 2054 LDAI &3,DIRER 
=0012 401 2055 LB R2-DIRERS 

2056 LIS R8,0 
=O0127EI 2057 BAL RD, 2INDCON 
=O018FOL 2058 B POUND 

2059 EODERR DC c*'EOD* 
4EYF 5420 2060 EOVRTNM DC C*EOV NOT FOUND’ 
4420 
3E20 4849 2061 LGHKSG DC C*LOW > HIGH ERROR‘ 
5252 4F52 
8554 5445 2062 TBIGMSG DC C* DISKETTE FULL' 
4C20 
4354 4F52 2053 EOQDMSG DC C*DIRECTORY FULL‘ 
4cac 

2064 EOJMSG cc C*EQJ* 
4354 4956 2065 MEDMNSG ce C* DEFECTIVE MEDIA’ 
4449 4120 
4741 4C20 2066 ILLMNSG cc C*ILLEGAL INSTRUCTION® 
5255 4354 
4S4E 4520 2067 HMFMSG pC C*MACHINE MALFUNCTION® 
554UE 4354 
4354 4F52 2068 RDEMSG bc 
4144 2045 
204F 4E20 
4520 5820 
2045 5252 2069 RDLMSG ce C®READ ERROR 


FDL20280 
FDL20290 
FDL20300 
FDL20310 
FDL203206 
FDL20330 
FDL20340 
FDL20350 
FDL20360 
FDL20370 
FDL20380 
FDL20390 
FDL20400 
FDOL20410 
FDL20420 
FDL20430 
FDL20440 
FDL20450 
FDL20460 
FDL20470 
FDL20480 
FDL20490 
FDL20500 
FDL20510 
FDL20520 
FDL20530 
FDL20540 
FDL20550 
FDL295469 
FDL265706 
FDL20580 
FDL20590 
FDL29600 


FDL20610 
FDL20620 
FDL290639 
FDL204640 
FDL20650 
FDL20660 


FDL20670 


FDL20C68¢6 


FDL29696 
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O01A60T 
OO1A68I 
QOO1A7OL 
OO1A78I 
OOTA7CI 
OOTA84T 
001A8CI 
OO1A94T 
001A961 
OOTAQSET 
OOTAA6I 
OOTAABT 
OO1ABOI 
OO 1ABS8I 
OOTACOT 
OO1ACAT 
OO1ACCT 
OOTADAT 
OOTAD6I 
OO1TADEL 
OOTAE6I 
OO1AEETI 
OO1AF6I 
OOTAFEI 


ANAnDANACLT 
VV PDVOdL 


OO1B0EI 
0018161 
0613181 
001B201 
001B281 
OOTB2AT 
0018321 
001B341 
0018351 
0018361 
0018371 
0013381 
001B39I 


OO1B3AI 
001B3BI 
00183CI 


001B3DI 
OO1B3ET 
OO01B3FI 
001B40I 
001B4a1I 
9013421 


001B43T1 


O01B44T 


5752. 


524F 
55£4 
4956 
4552 
2048 
5259 
4520 
492F 
5220 
4420 
4154 
544uF 
uF 4 
4uSuF 
464uu 
4552 
3031 
4644 
B4uY5 
5245 
uFUE 
&354 
5445 


nAnt 
a lie 


20 56 
4FUE 
5359 
2049 


4954 
5220 
5055 
4520 
524F 
4952 
2055 


HF20 
4PuE 


5445 
204F 
4420 
5620 
4Cy7 
4154 


4C4T 
5220 
uC4F 
2F50 
49UuF 
5252 
SSHE 


4oOuF 


5354 
4E54 


4320 


1B371 


1B3C1 


1B3AT 
1B3DI 


1B431 
13431 


4520 
QFUE 
5426 


5229 
4543 
5044 


4552 
204C 


4D50 
5645 
4644 


2047 
4F52 


204C 
5230 
4341 
524F 
4E20 
5550 
ann 


ACut 


4b49 
4552 


4552 
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4552 
204F 
4452 


GFE 
S4uF 
#154 


524F 
GFu 


5420 
524C 
4C4T 


454E 
2052 


HPH1 
3120 
5449 
5445 
HOKE 
5420 


g9¢c9 
ad 


avr 


5449 


2051 
5255 


524F 


2970 


2071 


RECMSG 


DIRER 


LSERRM 


LERR# 


EOYs 
TITLE 


FOXS 


SYSIMS3 


S¥CHSS 


TOF 
CHKERRS 
SOTMSGS 
EOVRTNNS 
LGHMSGS 
TBIGSSGS 
EODKSGS 
EOJMSSS 
MEDMSGS 
ILLMSGS 
MMFASGS 
RDEMSGS 
RDLMSGS 
RECKSSS 
DIRERS 
LSERRSS 
LERRMS 
EQVMS 
RPMSGS 
BNDYMSSS 
SYSQMSSS 
TITLES 
SVCMSGS5 


ce 


DC 


be 


pc 


ce 
DC 


DC 


BC 


ie] 
Qa 


be 


EQY 
EQU 


8 
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C'°WRITE ERROR ON OUTPUT DRIVe? 
C* ERROR ON DIRECTORY UPDATE’ 


C*I/G ERROR ON LOAD* 
C*ATTEMPT TO OVERLOAD FDLS’ 


C*EOV® 
C*FDLG GENERATOR RO1° 


C*FDLG LOADER RO1?® 


C*RELOCATION/PROTECTION INTERRUPT’ 


C*SYSTEM Q INTERRUPT’? 


C*SV¥C ERROR* 


13 
EOVRINMS 
3 

15 

19 
ILLMSGS 


EOQJMSGS 
RDEMSGS 
18 
BNDYMSGS 
SYSQMSGS 
9 


FDL20700 


FDL20710 


FDL20720 


FDL20730 


FDL20740 
FODL20750 


FDL20760 


FDL20770 


FDL20780 


FDL20790 


FDL20800 


FDL20810 
FDL208206 
FDL20830 
FDL20840 
FDL20850 
FDL20860 
FDL20870 
FDL20880 
FDL20890 
FDL20900 
FDL20910 
FDL20920 
FDL20930 
FDL20940 
FDL20959 
FDL20960 
FDL20976 
FDL20980 
FDL20990 
FDL21000 
FDL21010 
FDL219020 
FDL21030 


06-225F02M91R01A13 


OO1B457 


001B48T 
0018487 
001B501 
001D50I 


00 
06 
00 


OO RAAT 


00 18451 


FLOPPY DIAGNOSTIC LOADER/SENERATOR PAGE 4&5 03:34:45 
2104: “EODERRS “EQU EQJMSGS 
27105 DB 9 
2106 LNZ8 EQU *-4 
2107 ALIGN 4 
2108 PSWSAVA ODS 8 
2109 REGSAVA ODS 512 
2110 END 


98/17/73 


FOLZ71045 


FBL21056 


FDL21060 
FDL21070 
FDL21080 
FDL21990 
FEL21100 


O6-225FO2N91RO1A13 


FLOPPY DIAGNOSTIC LOADER/GCENER ATOR 


ASSEMBLED BY CAL 03-06€6R07-00 


START OPTICNS: 


NO CAL ERRORS 


T=32,ERLST 


NO CAL WARNINGS 


12 PASSES . 
ABSTOP 0000 
ADC ooce 
AGAIN 0000 
ASTERISK 0000 
BADIN 6600 
BIG 0000 
BNDYERR 0000 
BNDYMSG 0000 
RBNDYMSGS 0000 
BOOTO 0000 
BCOT1 0000 
BOOT1A 0000 
800T1B 0000 
BOOTIC 0000 
BOOT1D 0000 
ROOTIF 0000 
BOOT2 0000 
BOOT3 6009 
BOOTFEN16 0000 
RQOTEN32 : 0000 
BOOTST 0000 
CFFORN 0009 
CFFORM1 0000 
CHK16 0000 
CHKERR 0000 
CHKERRS 0000 
CHKHLS 0000 
CHKHLS1 0000 
CHKLGE . 0000 
CHKLGE1 6000 
CHKPOM 0000 
CLI 0000 
CLIECHO 0000 
CLIREST 00090 
CLRDIS 0000 
coM 0000 
COM1 GOGO 
COMIN 0000 
COMIN1 0000 
COMINP1 0000 
COML 0000 
CONCHK 0009 
CONIN 0000 
CONL 0000 
CONVB 0000 
CONVB1 0000 


0000 
0008 


13301 
O12AT 
OBDOI 
13D6I 
14EAI 
1BO06I 
1B431 
18A2T 
08621 
1894T 
OS8AI 
O8sCcCcl 
O91ET 
99681 
18301 
183EI 
O9AOT 
OSA6I 
O85AT 
OAEOT 
QAECI 
OFECT 
oB5at 
18351 
O2E8I 
OFOCT 
O2FAI 
OF20I 
OAF6I 
12CCT 
OA2ET 
DA4CT 
O44ET 
09101 
0918T 
OAOAT 
QA6CT 
O24KEI 
02381 
05421 
OOE2I 
O1ECI 
O588T 


059CI 


(32-BIT) 


1506* 
144 
543 

1555* 

1655* 

2078* 


2101 


2009 


1240 
1473* 


322* 


714 


834 


426 


1992 


1492 


327 


512 
572 


B4y 


10389 


515 
576 


1412 


1426 


519 
580 
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1932 


1448 


523 
534 


1735 


527 
528 


98/17/79 


552 


ur 


ih 


wma? 
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CONYRO 
CONVB3 
CONVERT 
CP1 

CP2 


CRPGMS 
CSEQNUAMI 
CSEQNUMNO 
CSHNI 


0000 
0000 
0000 
0000 
06000 
0000 
0000 
0009 
0000 
0000 
0000 
0000 
co00 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
00990 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
9000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0009 
0000 


QO59ET 
05901 
OBB8I 
OB1ET 
OB3AT 
08261 
O848T 
08501 
OC14T 
OCB2I 
OCACI 
OLré6o!r 
0C30I 
OC4OI 
OCSEI 
OCBOIL 
OCDSI 
OCD4&I 
OCBAI 
OC2AI 
OD3CI 
QODuUET 
OBDCT 
OCE6I 
O15ET 
016CI 
01681 
O16AT 
01861 


OCESI 


OF661 
OF94T 
OFBEI 
10381 
10001 
100EI 
OF46I 
OF2CI 
OF3EI 
ODD6I 
ODECTI 
OE2CI 
OE10I 
OE30I 
O62AI 
06401 
06561 
066CI 
06821 
0698T 
O6AAT 
OE36I 
OESEI 
OSA4T 
OSBAT 
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419 425* 

4418 420* 

171 275 938* 1707 

881* 894 

890 B93* 

BB4* 886 

335 499 619* 

621* 623 

963 965 968* 

1014 1016 1018* 

1002 1015* 

969 1069* 

976* 1073 

967 981* 

989 991* 

1005 1017* 

1020 1930* 

1029* 

1021* 1034 

960 1054* 1144 1297 

985 1059* 1697 

997 1064* 1167 1168 1336 1337 
851 951* 

1029 1035* 
B3* 188 1239 1243 1246 
B2* 868 952 955 957. 1139 1287 
gO* 1107 1138 1141 11214 +1299 1368 
81* 1108 1120 1169 1179 1257 
95* 1106 

1091 1100* 

1213* 1270 

1219 1226* 

1225 1238* 

987 1275* 1327 1699 

1178 1186 1189 11948 1199 1202 1256* 

41261* 1274 

1200 1203* 

1191 1193  1195* 

1197 1201* 

1094* 1101 

1099 1102* 1247 

1122* 1127 

1113* 1123 

1114 91124* 

230 46 3* 

464 469* 

479 475* 

476 4B1* 

482 4g7* 

488 493* 

494 493* 

1121 1126* 

1137* 1252 1255 

227 427* 

428 433* 


2:34:45 


1231 
1374 
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1294 
1395 


1349 


1438 


1786 


“sy 
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D516B8 
B576C 


DIRERS 
BIRP 
DISPLD 
DRI 

DRO 
DUPE 
ECHOCOM 
ENDAD 
ENDDIR 
EOD 
EOD1 
EODERR 
EODERRS 


ranwss 
~ 


WW abd 


EODNSGS 
EODPT 
EODPTA 
EOJ 
EOJMSG 
EOJMSGS 
EOV 
EOV1 
EOVDIS 
EOVEX 
EOVA 
EOVMS 
EQVPT 
EQVPTA 
EOVRTNM 
EOVRINMS 
ERR27 


0000 
0000 
0090 
0000 
0000 
0000 
0000 
0000 
0000 
0009 
0000 
0000 


O5D21 
OSE8I 
OSFEI 
06174T 
0626T 
OESAT 
OFEST 
OFA6I 
OEB2I 
0 344T 
00101 
1A7CI 
1B4QT 
01741 
O27AI 
01781 
01761 
ODBEI 
OA34T 
O9ATI 
OO1F 
12901 
16DCI 
19BCI 
1B3AT 
TOECT 
1B371 
033CI 
O4D6I 
12121 
19FAI 
1B3AI 
12281 
16C8I 
03541 
16CCI 
1ACOTI 
1B3AI 
035CI 
O4BET 
19COI 
1B371 
OBIJET 
034CI 
01301 
O012FI 
12361 
129CI 
12A61 
12AAT 
12B0I 
12BAI 
12EAI 
0171461 
123AI 
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434 
449 
446 
452 
458 

1146 

1151 

1149 

1162* 
194 

39% 
2054 
2055 

B6* 

134 

88 

g7* 
853 
805 

28 

31* 

1008 

1808 
460 
459 

1408 

1409 
236* 
351 

1053 
430 
429 

1413* 

1810 
196 

1818* 
436 
435 
244 
350 
454 
453 
888 
201 

60* 

59* 

1447* 

1452 

1456 

1461+ 

1869 

1464 

1478 

77* 

855 


439% 
u4u5* 
451* 
4S7* 
462* 
1150* 
1248* 
1158* 
1249 
238* 
796 
2071* 
2095* 
320 
176* 
1482 
1479 
1086* 
808* 
637 
1007 
1032 
1823* 
496 


495 
20623* 


ovve 


2087* 
363 
366* 

1105 
466 


387 


1418 
1419 
365 


1055 
1054 


240* 


140 
225 


1937 


1850 


384 


1963 
1955 


1227 
1827 


1403 
2064* 
2088* 


2974* 
2098* 
501 


2060* 
2084* 


345 
228 
248 


388 


1968 
1970 


1380 


1412* 


2098 


502 


2087 


357 


390 


PAGE 


1036 


1973 
1975 


1543 


1444 


2104 


43 03:34:45 


1048 


1978 
1980 


1524 
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O6-225FO02M91R01A13 FLOPPY DIAGNOSTIC LOADER/GENERATOR PAGE 44H 08:34:45 08/17/79 


FINDC 6000 14125CI 1433 1435* 
FINDCON 0000 127EI 899 1057 1062 1967 1083 1410 1416 1421 T445* 1515 1637 1778 1846 
1885 1991 1995 1997 2049 2057 
FINDDRYV 0000 12DCI 1477* 1837 
! FINDI 0000 12561 1430 1432* 
FINDO 0000 125AI 1428 1434* 
FIOD 0000 18761 129 1953* 1984 
} FLG16 0000 0172CI 56* 135 202 981 1043 118000661195 1253 1250 1321 1348 1551 1556 
: . 4622 1667 1672 1687 13849 1875 2914 2033 
FLOOP 0000 O7HAT S41 5&5 
‘ FLPAD 0000 00171 45* 878 902 308 1491 1790 1855 2902 2029 
FM1 0000 12FCI 1487* 1510 
FM2 0000 13741 1496* 1499 
! ; FMAXLRN 0000 12F4Ir 1098 1485* 1518 
EMTA 0000 07481 535 540* 
FORMAT 0000 OS5SAEI 358 499* 
' FOXS 0000 1AD6L 141 249 2076* 
GO32 0000 O9A2I 753 756* 
GO32A 0000 13ECI 15a3* 
( GODOIT 0000 OASCI 782 838 B44 
GOTMSG 0000 OD98I 1081 1085* 
GOTNSGS 0000 18361 1080 208 3* 
f HDR 0000 O3EAI 288* 337 
HDR1 0000 O3FAI 294* 297 
HDR2 0000 O408I 299* 302 
i HDR3 0000 04161 304* 307 
HDR4& 0000 0424T 309* 312 
HDRS 0000 04321 314* 317 
( HDRA 0000 O3ECI 289* 292 
HIGd 0000 01401 74* 982 1045 1323 1350 1695 
TD 0000 137AI 1527* 1530 
‘ IDLE 0000 OSBAL 660* 679 
ILLIST . 0000 1472T 159.2 1618* 
ILLASG 0000 1A0EI 1619 2066* 
( ILLMSGS 0000 1B3CI 1618 2090* 2091 
IMNPTOP 0000 1D50T 2710 
IN1 0000 OAOCT 79.3* 835 841 
f IN2 0000 OA84I 832 836* 843 
INBUF 0000 OO1AI 5t* 20:3 204. 346 590 503 506 519 514 517 521 525 529 
- 533 541 546 550 554 558 562 566 579 574 578 582 586 
t = 590 872 972 976 19.22 1025 1028 1031 19074 1119 1125 1133 1135 


T&T 1156 1159 E81 F182 4210. 1211 1215 1217 12217 1222 1235 1236 
: 1305. 4:3:4:2 13.16 1353. 4360: 1369: 1371 4385 1386 1392 139.3 1397 1398 
4 140.4 1405 1527 1542 T807 1821 


INIT 0000 13581 857 1S517* 
INITDIR 0000 13761 1519 TS25* 
ft INP1 0000 02281 T50* 169 17S. 
= INP2 0000 02621 165 168* 
INP3 0000 02681 t67 170* 
‘ IPDBP 0000 O18AI | 97* 1307 1313 T3138 
; TS.16 0000 O90AL 689. 69:3* 
ISAF 0000 OBDHT 94.5 948* 
& ISNUS 0000. OBD6I. 941 949* 
LADC. 0000 0002 


LCLP 0000 1468T T674* 1615 


am. 
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LCOM 
LCON1B 
LCOM1IC 
LCOM1D 
LCOM1TE 
LCOM1F 
LCON2 
LCOM2A 
LCOMA 
LCONT 
LCORE 
LDBUF 
LDFLG 
LEAVE 
LERR 
LERRM 
LERRAS 
LGHMSG 
LGHMSGS 
LIM1 
LIM2 
LIM3 
LIM32 
LIM32A 
LIMITS 
LIST 
LNZB 
LOADI? 
LOW 
LPAD 
LPDB 
LPFLG 
LRNS 
LSERR™ 
LSERRMS 


00090 
0000 
0000 
0000 
0090 
0000 
C000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0009 
0000 
00090 
0000 
0000 
0000 
0000 
0000 
0000 


ou761 
O4BAI 
05221 
04801 
O4EEI 
O494T 
05041 
050CI 
O47EI 
03067 
13BEI 
O1CE 
012DI 
12F2I 
O2E0I 
1AA8I 
13421 
19CEI 
1B381 
158CI 
15421 
15741 
153AI 
156CI 
150EI 
O4SCI 
1B45I 
03051 
013CI 
00151 
017EL 
012BI 
01441 
1A96I1 
1B411 
16D61 
017CI 
12D4I 
081CI 
082CI 
O52AT 
J9ABI 
09R6I 
O9F2I 
O9CCI 
08121 
0 3E4I 
00161 
147EL 
14B MT 
14A4T 
14A01 
1UAEI 
13421 
19FEI 


FLOPPY DIAGNOSTIC 


333 
356 
331 
339* 
321 
344 
348 
382* 
338* 
215 
128 
28* 
S7* 
1481 
206 
448 
447 
1069 
1059 
1791 
1677 
1692 
1674 
1689 


1812 
1469 
599* 


769* 


1594 
1638* 
1633* 


1508 
1512 


LOADER/GENERATOR 


594 


396 


wet 


279% 
1983 

663 
1640 


213 


2073* 
2097* 


1654 


406 


691 
1823 


218 


1335 


431 


1657 


410 


693 
1840 


1349 


1070 
366 
1703 


1504 


1660 


412 


695 
1879 


1680 


373 


1511 


443 


1663 
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1987 
1696 
449 4s5 461 595* 1475 
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MEDMSGS 
MM32 
MMEMSS 
MMFASGS 
NCPDBAP 
NEW32 
NEXTI 
NOECHO 
NOLP 
NSLRN 
NSLRNA 
CKIN 
P06 

P32 
P516 
P516A 
P516B 
P516C 
P516D 
PACK 
PAO2 
PAO3 
PAOY 
PAOS 
PASAD 
PASCHK 
PASECHO 
PASL2 
PASLA 
PASLAI 
PASLAO 
PASRD 
PASREST 
PASWR 
PFAIL 
PK 1 

PK2 
POUND 


PR1 
PRECMDI 
PRECMDO 
PRTBUF 


PRTCODE 
PRTO 
PSWSAVA 
PURETOP 
QMSG 
QUEST 


RO 


0000 
0009 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0009 
00090 
0009 
0000 
0000 
0009 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


1B3BI 
749uT 
1A221 
1B3CI 
018CI 
14D21 
91661 
OASET 
O470I1 
01801 
0182T 
OBD2I 
01381 
O20AT 
0364T 
O33AT 
03D0I 
03781 
O3A0I1 
1E94T 
15ECI 
1SF8tI 
16001 
15CAI 
00121 
0£621 
OA2CI 
01311 
12C4T 
ocFcl 
1SACI 
01331 
OA56I 
91321 
14C8I 
1596] 
15AAI 
18FOI 


T62AT 
01721 
01701 
OO9AT 


031381 
16221 
1B48T 
OOOOP 
165AT 
1E4UAT 


0000 


1513 
1624 
1635 
1634 
98* 
1630 
79* 


1596 
2110 
1775 
860 
1905 
12* 
184 
236 


2089* 
1629* 
2067* 
2091* 


2108* 


1780* 
1096 
1911 
123 
185 
238 


1172 


1245 
822 


978 
992 


468 


280 
279* 
432 


1437 
1741* 


1757 
407 
407* 
806* 


1474* 


415 

824 

823* 
1722 
1644* 


900 


1886 


905 
295 
520 
573 
237 
378 


1284 
1917 
124 
185 
240 


1206 


825* 


1975 
1921 


a7y4u 


438 


1669 


738 


467 
1717 


1647 


1058 
1944 


1487 
300 
524 
577 
239 

1758* 


1289 
1925 
125 
1387 
242 


FLOPPY DIAGNOSTIC LOADER/GENERATOR 


1216 


1684 


806 


473 


1648 


1063 
1992* 


1787 
305 
528 
581 
241 


1292 
1940 
126 
188 
244 


PAGE 


1258 


1364 


1332 


486 


459 


1705* 


823 


479 


$6 03:34:45 


1338 


1345 


492 


456 


1902 


1715 


1084 
2058 


1832 
315 
537 
589 
245 


1431 


177 
193 
248 


1422 


1370 


498 


1908 


1721 


491 


1411 


1852 
377 
539 
593 


1440 


178 
133 
256 


08/17/79 


1379 


1914 


1724 


497 


1676 


180 
209 
257 


1523 


1922 


1730 


1471 


1422 


1999 
4O4 
549 


1679 


181 
224 
2593 


1744 


1715* 


. 1516 1643 1704 


2017 
414 505 09 
553 557 561 


1691 1694 1775* 


182 183 184 
232 232 233 
269 283 285 


nay 


ma 


ND 


0000 0091 


0000 0003 


323 
493 
1445 
1588 
1601 
1646 
18414 
13* 
174 


324 
595 
1448 
1589 
1602 
1649 
1842 
114 
178 
273 
643 
685 
733 
790 
861 
916 
946 
1559 
1708 
1730 
1759 
1854 


427 
597 
1552 
1590 
1603 
1650 
1871 
116 
183 
277 
647 
697 
737 
791 
865 
918 
948 
1551 
1708 
1731 
1760 
1857 
1946 
1969 
2001 


aaet 
110 


152 
253 
435 
634 


1275 
1426 
1607 
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451 
609 
1581 
1594 
1638 
1824 
2038 
132 
260 
606 
660 
707 
750 
806 
303 
930 
1447 
1623 
1717 
1744 
1771 
1892 


457 
611 
1532 


1595. - 


1539 
1823 


148 
261 
449 
664 
7114 
769 
807 
905 
932 
1448 
1623 
1718 
1745 
1773 
1895 
1957 
1975 
2022 
135 
159 
333 
465 
666 
740 
775 
836 
878 
911 
1275 
1433 
1658 
1729 
1844 
1833 
1950 
2023 
249 
374 
411 
496 
685 
745 
840 
976 
1104 
1325 
7494 
1619 


33/17/73 


463 
613 
1533 
1596 
1640 
1328 


159 
262 
610 
655 
712 


1197 
1326 
1595 
1635 


1110 
1331 
1512 
1656 


481 
761 
1586 
1599 
1644 
1840 


170 
267 
617 
674 
728 
767 
821 
911 
940 
1547 
1639 
1724 
1753 
1818 
1934 
1964 
1980 


Ann 
pay 


166 
4O7 
489 
684 
763 
786 
846 
884 
988 
1328 
14893 
1658 
1776 
1356 
1901 
2001 
2055 
359 
391 
442 
647 
714 
754 
872 
984 
1111 
1333 
1532 
1659 


_ 
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KY 


R5 


RSSAV 
R6 


R7 


R83 


0000 


0000 


0000 
0000 


0000 


0000 


0000 


0094 


0695 


0194T 
0006 


0007 


0008 


9009 
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1670 
1762 
1817 
1992 
16* 
289 
305 
329 
615 
736 
874 
978 
1022 
1103 
1206 
1312 
1364 
1521 
1615 
1749 
1834 
17* 
659 
725 
964 
1004 
1044 
1145 
1201 
1243 
1343 
1398 
1695 
1850 
1926 
104* 
18* 
727 
1199 
1324 
1371 
1498 
19* 
1133 
1196 
1322 
1695 
2039 
20* 
1066 
1342 
1477 
1884 
21* 
224 


1671 
1763 
1843 
2023 
149 
2990 
306 


346 


626 

797 

879 

979 
1323 
1115 
1207 
1313 
1388 
1522 
1718 
1751 
1838 

203 

651 

726 

966 
1013 
1070 
1147 
1210 
1286 
1349 
1404 
1696 
1861 
1927 
1850 

204 

735 
1211 
1325 
1379 
1613 

690 
1134 
1209 
1323 
1696 
2040 

190 
1082 
1407 
1487 
1990 

198 

223 


4675 
1766 
1858 
2032 
168 
291 
308 


1678 
17469 
1867 
2046 
172 
233 
309 
349 


- 631 


801 

893 

383 
1027 
4120 
1226 
13193 
1479 
1525 
1725 
1753 
2097 

216 

653 

734 

968 
1917 
1090 
11690 
1217 
1233 
1359 
1439 
1795 
1865 
1929 
2015 

212 

885 
1215 
1340 
1384 
1895 

752 
1138 
1211 
1349 
1849 


398 
1102 
1420 
1514 
1996 

200 

341 
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aenan 


i590 
1775 
1933 


245 
296 
313 
333 
688 
812 
928 
995 
1037 
1153 
1239 
1333 
1483 
1535 
1734 
1760 


332 
671 


7693 
1796 
1937 


275 
298 
314 
324 
683 
314 
929 
998 
1042 
1156 
1203 
1334 
1486 
1538 
1736 
1767 


334 

672 

824 

993 
1026 
1196 
1165 
1242 
1238 
1371 
1526 
1799 
1909 
2027 


639 
1125 
1221 
1358 
1392 


983 
1177 


58/17/79 


16595 
1892 
1338 
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RA 


RANGE 
RB 


RC 


RD 


RDEMSG 
RDENSGS 
RDHL 
RDIO 
RDIRECT 
RDIRECT1 
RDIRECT2 
RDIRERR 
RDIRERR1 
RDLDEGEN 
REPLMSG 
RDLMSGS 
RDLOOP 
RDLRN 


RDLRNE 
RDLRNE1 
RE 


0000 


0000 
6000 


0000 


0000 


0000 
0000 


0000. 


0000 
0000 
00900 
0000 
0co9 
0000 
0099 
90000 
0c00 
0000 
0000 


0000 


0000 
0009 


0000 


0008 


O012ET 
0008 


000C 


000D 


1A361 
1B3DI 
16901 
O28 EI 
165CI 
16A8T 
16821 
V6FCI 
17081 
0948T 
TA561 
1B3EI 
16661 
172EI 


176CI 


17861 
OOOE 


TAGOI 


FLOPPY DIASNOSTIC LOADER/GENERATOR 


503 
521 
539 
559 
577 
619 


541 


1009 
1257 


2068* 
2099 


954 


1828* 


342 
1205 


199 
1050 
1205 
1315 
1518 
1908 


958 


354 
1233 


221 
1073 
1212 
1346 
1534 
1914 


506 
524 


1103 


871 
1264 


342 
1077 
1213 
1351 
1537 
1922 


1140 


975 
1305 


354 
1093 
12390 
1352 
1540 
2010 
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1213 


1000 
1309 


869 
1093 
1233 
1363 
1545 
2035 


1299 


1012 
1315 


371 
1193 
1238 
1356 
1659 


98/17/79 


511 
529 
5590 
567 
535 
1273 


961 
1071 
1353 


305 


189 
371 
479 
987 
1174 
1361 
1465 
1743 
1971 


325 
555 
904 
1452 
1833 
2034 


1295 


1073 
1366 


954 
1113 
1254 
1373 
1684 


135&2 


1077 
1383 


958 
1130 
1263 
1383 
17174 


1441 


1118 
1399 


975 
1140 
1282 
1390 
1820 


516 
533 
554 
571 
589 
413879 


998 
1150 
1451 


314 


254 

4O5) 

497 
1049 
1232 
1382 
1490 
1814 
1982 


508 
5&8 
1062 
1485 
1851 
2051 


1738 1* 


1139 
1848* 


1000 
1155 
1290 
1400 
1842 


517 
534 
55:5 
573 
590 
1880 


1006 
1152 
1455 


315 


258 
415 
499 
1072 
1237 
1389 
1533 
1837 
1983 


512 
572 
1067 
1503 
1869 
2053 


1155 


1012 
1153 
12395 
1437 
18790 


ar. 


06-225FO2M91R01A13 


RLRNLOCP 
RPMSG 
RPMSGS 
SEQ 

SEQ1 
SEQ2 
SEQ3 
SEQNUM 
SET32 


SVCERR 
SVCMSG 
SVCMSSS 
SYSQERR 
SYSQASG 


. SYSQHSGS 


TBIGKSG 
TBIGESGS 


0000 
0000 
0000 
0000 
0000 
0000 
00095 
0000 
0000 
0000 
0000 
0000 
0000 
6000 
00090 
0000 


0000. 


0000 
0000 
0000 
0000 
00cod 
0009 
0009 
0000 
0000 
0000 
0000 
00090 
0009 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


00090 
0000 
0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 
0009 
9090 
0000 


TBSFI 
O8FEOT 
0932T 
097CI 
O954T 
OB89ET 
73501 
V4DEI 
08601 
Q13AT 
000F 

174CI 
1754 
17381 
1AEGI 
TE3DI 
17C6I 
183CI 
185CI 
18301 
01361 
02041 
TTA4T 
13E6. 
01881 
91881 
01981 
01C2I 
18601 
18741 
O286T 
O85AlI 
1eCCcI 
0000! 
01CCI 
o01Cc 

OO1B 

1904T 


O8F 21 
OaBsel 
91BuL 
0020 
11F6I 


15021 
1B2AI 
1B44T 
14F6I 
12181 
13431 
19DET 
18391 
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2047 
675 
708 
738 
724* 
648 

76090 

1604 
902* 

71* 
27* 

1858* 

1861* 

1851* 

1653 

1652 
849 

1934* 

1936 

1920 

69* 
137 
13¢ 

1552 
114* 

96* 


209%* 
677* 
710* 
740* 
744 
6590* 

2109* 

1652* 

F465 

1915 
892 

1366 

1864 

1877 

2077* 

2099* 

1898* 

1943 

1944* 

1930* 
951 
139* 

1887* 

1554 
176 

1134 
289 


LCADES /SENERATOR 
1532 1784 1851 
1928 1929 
1052 1240 1402 
1023 1938 1039 
1986 
1557 1559 1531* 

231 322 1199 
1165 1269 1317 

294 299 304 

234 325 1112 
1424 1435 1665 
1952* 

638 680 715 

212 1183 1188 

962 1150 1353 
1782 
1503 1506 1819 
2053 

2683 

385 1248 1521 

352 870 974 
1170 1174 1224 
1372 1382 1389 
2102 


PAGE 


2015 


1519 


1051 


309 


1681 


745 


1642 


1531 


1826 


1794 

999 
1229 
1399 
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1520 


1341 


314 


1900 


1783 


1833 


2042 
1011 
1232 
140 4* 


1546 


1343 


1995 


1839 


1949 
1237 
1430 


08/17/79 


2011 


1344 


1912 


1869 


1972 
1262 
1533 


1903 


1930 


1874 


1076 
1267 


(1536 


1945* 


1878 


1117 
1304 
1539 


1951 


1999* 


1129 
1398 
1544 


2034 


1146. 


1314 
1785 
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TEMSAYV 
TERMSEQ 


TTYO2 


U9 
UPDATE 
WRERR 
WBERR1 
4LHL 
WLHL1 
WRLRN - 


WRLRN1 
WRLRN2 
WRLRN3 
WRTBOOT 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
00006 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 
0000 
0000 
0000 


01901 
0184T 
ODgé6r 
TACHT 
1B431 
18341 
O17AT 
00741 
OAO2I 


OB80T 


OBSAT 
OBSAT 
0992T 
TOACI 
1OBET 
10EAI 
11BEI 
11D4T 
TTA81 
V1EAI 
V1E2I 
11D8T 
114AI 
11421 
10421 
19681 
197EI 
19481 
19501 
19281 


199ETI 
19341 
A9AK6I1 
19181 


99* 
94* 
956 
1988 
1989 
363. 
89* 
42* 
790* 
405 
918% 
917 
739 
1301 
1310 
1329 
1376 
1381 
1382* 
1401* 
1387 
1378 


1286 
1094 
1080* 
2075* 
2102* 
370 
791 
790 
1474 
91:5* 
923 
925* 
7T48* 
1311* 


.1316* 


1331* 
1388* 
1395* 


1394 
1396* 
1358* 
1356* 
1279* 
2036* 
2042* 
2031 
2029 
1047 
1537 
2051* 
2052 
2043 
2007* 
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1339 1401 
1242 


1142 


1367 


804 821 916 


1399* 


1175 
1545 


1050 
1540 


1212 
2010 


2053* 
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1668 1671 1683 
1230 1238 1268 
2012* 


1346 


. 


98/17/73 


1351 


1363 


1373 


1400 


